(PROG (SEXPR IBASE) (SETQ IBASE (ADD1 7)) LOOP (SETQ SEXPR (ERRSET (READ))) (COND ((EQ SEXPR (QUOTE $EOF$)) (RET~
URN NIL))) (COND ((MEMQ (CAAR SEXPR) (QUOTE (BEGINBLOCK ENDBLOCK))) (GO LOOP))) (PRINT (EVAL (CAR SEXPR))) (GO L~
OOP)) 

(BEGINBLOCK COMPILER) 

(BEGINBLOCK MACROS) 

(BEGINBLOCK PROPTABLE) 

(LAP DELETEPROP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 1) 
TAG1 	(HRRZ@ 1 0 P) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CAME 1 -1 P) 
	(JRST 0 TAG7) 
	(HRRZ@ 1 0 P) 
	(CALL 1 (E CDDR)) 
	(HRRM@ 1 0 P) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG7 	(HRRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP HASPROP SUBR) 
	(PUSH P 1) 
	(MOVE 1 2) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E GETL)) 
	NIL 

(LAP INITPROP SUBR) 
	(PUSH P 2) 
	(HRRZ@ 2 1) 
	(PUSH P 1) 
	(MOVE 1 3) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(HRRM@ 1 0 P) 
	(POP P 1) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SEEKPROP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E GETL)) 
	(PUSH P 1) 
	(JUMPE 1 TAG2) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP SETPROP SUBR) 
	(EXCH 3 2) 
	(JCALL 3 (E PUTPROP)) 
	NIL 

(ENDBLOCK PROPTABLE) 

(ENDBLOCK MACROS) 

(BEGINBLOCK TOPLEVEL) 

(LAP ACTONEXPR SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(MOVEI 2 (QUOTE COMPEFFECT)) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E GETGET)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG7) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG3) 
TAG7 
TAG1 	(MOVE 1 -1 P) 
	(CALL 1 (E FLUSHEXPR)) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP ACTONMACRO SUBR) 
	(MOVEI 2 (QUOTE MACRO)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 1 (E ACTONEXPR)) 
	NIL 

(LAP CMP FSUBR) 
	(PUSH P 1) 
	(JUMPE 1 TAG1) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG2) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E COMPILEFUN)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 2 0 P) 
	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVEI 2 (QUOTE LAMBDA)) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG6) 
	(MOVEI 3 (QUOTE EXPR)) 
	(JRST 0 TAG5) 
TAG6 	(HRRZ@ 3 -2 P) 
	(HRRZ@ 3 3) 
	(HLRZ@ 3 3) 
TAG7 
TAG5 	(MOVE 2 -1 P) 
	(POP P 1) 
	(CALL 3 (E PUTPROP)) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPILEFUN)) 
	(SUB P (C 0 0 1 1)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP COMPDEF SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E LENGTH)) 
	(MOVEI 2 (QUOTE 4)) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG5) 
	(MOVEI 1 (QUOTE (ARGNOERR-COMPDEF))) 
	(CALL 17 (E USERERR)) 
TAG5 	(MOVEI 2 (QUOTE DEFACTION)) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADDR)) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG7) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG2) 
TAG7 	(MOVE 1 -1 P) 
	(CALL 1 (E FLUSHEXPR)) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP COMPFILE SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL ALLFUNS)) 
	(0 0 (SPECIAL UNDFUNS)) 
	(0 0 (SPECIAL GENFUNS)) 
	(0 0 (SPECIAL CODESIZE)) 
	(0 0 (SPECIAL CONSTSIZE)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFILE)) 
	(CALL 3 (E INITPROP)) 
	(CALL 0 (E TIME)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL CONSTSIZE)) 
	(MOVEM 1 (SPECIAL CODESIZE)) 
	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(MOVEI 1 (QUOTE COMPREADS)) 
	(CALL 3 (E DOFILE)) 
	(MOVE 2 0 P) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E TELLTALE)) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFILE)) 
	(CALL 2 (E DELETEPROP)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP COMPFUNC SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL LOCVARS)) 
	(0 0 (SPECIAL SPECVARS)) 
	(0 0 (SPECIAL P1CNT)) 
	(0 0 (SPECIAL P2CNT)) 
	(0 0 (SPECIAL LASTOUT)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVEI 1 (QUOTE (VAL VAR TAG))) 
	(CALL 17 (E STARTSYM)) 
	(MOVE 3 -2 P) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFUN)) 
	(CALL 3 (E INITPROP)) 
	(MOVE 3 0 P) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PASS1)) 
	(MOVE 3 0 P) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PASS2)) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFUN)) 
	(CALL 2 (E DELETEPROP)) 
	(MOVEI 1 (QUOTE (VAL VAR TAG))) 
	(CALL 17 (E STOPSYM)) 
	(MOVE 2 (SPECIAL P1CNT)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 (SPECIAL P1CNT)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINTMSG)) 
	(MOVEI 1 (QUOTE (COUNTSDISAGREE-COMPFUNC))) 
	(CALL 17 (E COMPERR)) 
TAG5 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 3 3)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP COMPILE FSUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG6) 
	(MOVEI 2 (QUOTE T)) 
	(CALL 2 (E OUTC)) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG6 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG10) 
	(HLRZ@ 1 -1 P) 
	(CALL 17 (E OUTPUT)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E OUTC)) 
	(JRST 0 TAG7) 
TAG10 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E COMPILEFUN)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E *APPEND)) 
	(MOVEM 1 0 P) 
TAG11 
TAG7 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP COMPILEFUN SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL GENFUNS)) 
	(0 0 (SPECIAL UNDFUNS)) 
	(0 0 (SPECIAL CODESIZE)) 
	(0 0 (SPECIAL CONSTSIZE)) 
	(0 0 (SPECIAL MSGCHAN)) 
	(0 0 (SPECIAL SHOWNAMES)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL CONSTSIZE)) 
	(MOVEM 1 (SPECIAL CODESIZE)) 
	(HRRZ@ 1 0 P) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPN 1 TAG7) 
	(MOVE 1 -1 P) 
	(CALL 1 (E REVERSE)) 
	(JRST 0 TAG3) 
TAG7 	(MOVEI 2 (QUOTE DEFACTION)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG2) 
	(HLRZ@ 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 -2 P) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE DEFPROP)) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
TAG2 	(HRRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(SUB P (C 0 0 4 4)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP COMPL FSUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL MSGCHAN)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL LISTING)) 
	(JUMPE 1 TAG7) 
	(CALL 0 (E GENSYM)) 
	(MOVE 2 (SPECIAL LISTING)) 
	(CALL 2 (E CONS)) 
	(CALL 17 (E OUTPUT)) 
	(MOVEM 1 (SPECIAL MSGCHAN)) 
TAG7 
TAG1 	(MOVE 1 0 P) 
	(JUMPN 1 TAG11) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 (SPECIAL MSGCHAN)) 
	(CALL 2 (E OUTC)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E OUTC)) 
	(JRST 0 TAG4) 
TAG11 	(HLRZ@ 1 0 P) 
	(CALL 1 (E EXPLODE)) 
	(CALL 1 (E LAST)) 
	(HLRZ@ 2 1) 
	(CAMN 2 (SPECIAL *COLON)) 
	(JRST 0 TAG14) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG13) 
	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG13) 
TAG14 	(HLRZ@ 1 0 P) 
	(MOVEM 1 (SPECIAL INDEV)) 
	(JRST 0 TAG2) 
TAG13 	(HLRZ@ 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 (SPECIAL INDEV)) 
	(CALL 2 (E XCONS)) 
	(PUSH P (SPECIAL OUTDEV)) 
	(PUSH P 1) 
	(HLRZ@ 1 -2 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG17) 
	(HLRZ@ 1 -2 P) 
	(JRST 0 TAG16) 
TAG17 	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
TAG20 
TAG16 	(MOVE 2 (SPECIAL OUTEXT)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPFILE)) 
	(SUB P (C 0 0 1 1)) 
TAG2 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP COMPREADS SUBR) 
	(MOVEI 1 (QUOTE ACTONEXPR)) 
	(JCALL 1 (E READLOOP)) 
	NIL 

(LAP CURFILE SUBR) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFILE)) 
	(JCALL 2 (E GET)) 
	NIL 

(LAP CURFUN SUBR) 
	(MOVEI 2 (QUOTE NAME)) 
	(MOVEI 1 (QUOTE CURFUN)) 
	(JCALL 2 (E GET)) 
	NIL 

(LAP DECLARE FSUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE EVAL)) 
	(JCALL 2 (E MAPC)) 
	NIL 

(LAP DEFEXPR SUBR) 
	(PUSH P 1) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG6) 
	(HLRZ@ 1 0 P) 
	(CAIN 1 (QUOTE LAMBDA)) 
	(JRST 0 TAG5) 
TAG6 	(MOVE 1 -2 P) 
	(CALL 1 (E FLUSHEXPR)) 
	(JRST 0 TAG4) 
TAG5 	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG7) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(JUMPE 1 TAG7) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E REMPROP)) 
	(JUMPE 1 TAG12) 
	(MOVEI 2 (QUOTE (LSUBR USED AS SUBR))) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E PRINTMSG)) 
TAG12 	(MOVEI 3 (QUOTE *LSUBR)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVE 1 -1 P) 
	(CALL 3 (E PUTPROP)) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(CALL 2 (E CONS)) 
	(MOVEI 2 (QUOTE LSUBR)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 3 (QUOTE LSUBR)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 3 (E COMPFUNC)) 
	(JRST 0 TAG4) 
TAG7 	(MOVEI 2 (QUOTE *UNDEF)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E REMPROP)) 
	(MOVEI 3 (QUOTE *SUBR)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVE 1 -1 P) 
	(CALL 3 (E PUTPROP)) 
	(HRRZ@ 2 0 P) 
	(MOVEI 1 (QUOTE SUBR)) 
	(CALL 2 (E CONS)) 
	(MOVEI 3 (QUOTE SUBR)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 3 (E COMPFUNC)) 
TAG13 
TAG4 	(MOVE 1 -1 P) 
	(CALL 1 (E TYPEFN)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP DEFFEXPR SUBR) 
	(PUSH P 1) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E REMPROP)) 
	(JUMPE 1 TAG5) 
	(MOVEI 2 (QUOTE (FSUBR USED AS SUBR))) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E PRINTMSG)) 
TAG5 	(MOVEI 3 (QUOTE *FSUBR)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVE 1 -1 P) 
	(CALL 3 (E PUTPROP)) 
	(HRRZ@ 2 0 P) 
	(MOVEI 1 (QUOTE FSUBR)) 
	(CALL 2 (E CONS)) 
	(MOVEI 3 (QUOTE FSUBR)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 3 (E COMPFUNC)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E TYPEFN)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP DEFMACRO SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E REMPROP)) 
	(JUMPE 1 TAG3) 
	(MOVEI 2 (QUOTE (MACRO USED AS SUBR))) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E PRINTMSG)) 
TAG3 	(PUSH P 1) 
	(MOVEI 3 (QUOTE MACRO)) 
	(HRRZ@ 2 -2 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E PUTPROP)) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E TYPEFN)) 
	(PUSH P 1) 
	(MOVNI 6 3) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP DO*EXPR SUBR) 
	(MOVEI 3 (QUOTE *SUBR)) 
	(HRRZ@ 2 1) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 1 (E CADR)) 
	(JCALL 3 (E PUTPROP)) 
	NIL 

(LAP DO*FEXPR SUBR) 
	(MOVEI 3 (QUOTE *FSUBR)) 
	(HRRZ@ 2 1) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 1 (E CADR)) 
	(JCALL 3 (E PUTPROP)) 
	NIL 

(LAP DOACT SUBR) 
	(MOVEI 2 (QUOTE COMPACTION)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP DODE SUBR) 
	(MOVEI 4 (QUOTE EXPR)) 
	(HRRZ@ 3 1) 
	(HRRZ@ 3 3) 
	(HRRZ@ 3 3) 
	(HLRZ@ 3 3) 
	(HRRZ@ 2 1) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 1 (E CADR)) 
	(CALL 4 (E MAKDEF)) 
	(JCALL 1 (E DEFEXPR)) 
	NIL 

(LAP DODF SUBR) 
	(MOVEI 4 (QUOTE FEXPR)) 
	(HRRZ@ 3 1) 
	(HRRZ@ 3 3) 
	(HRRZ@ 3 3) 
	(HLRZ@ 3 3) 
	(HRRZ@ 2 1) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 1 (E CADR)) 
	(CALL 4 (E MAKDEF)) 
	(JCALL 1 (E DEFFEXPR)) 
	NIL 

(LAP DODM SUBR) 
	(MOVEI 4 (QUOTE MACRO)) 
	(HRRZ@ 3 1) 
	(HRRZ@ 3 3) 
	(HRRZ@ 3 3) 
	(HLRZ@ 3 3) 
	(HRRZ@ 2 1) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 1 (E CADR)) 
	(CALL 4 (E MAKDEF)) 
	(JCALL 1 (E DEFMACRO)) 
	NIL 

(LAP DOFILE SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL LINCNT)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL LINCNT)) 
	(MOVEI 1 (QUOTE INCHAN)) 
	(CALL 2 (E CONS)) 
	(CALL 17 (E INPUT)) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE OUTCHAN)) 
	(CALL 2 (E CONS)) 
	(CALL 17 (E OUTPUT)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVEI 1 (QUOTE INCHAN)) 
	(CALL 2 (E INC)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVEI 1 (QUOTE OUTCHAN)) 
	(CALL 2 (E OUTC)) 
	(CALLF@ 0 -2 P) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E OUTC)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E INC)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP FLUSHEXPR SUBR) 
	(PUSH P 1) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPN 1 TAG2) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG2 	(POP P 1) 
	(JCALL 1 (E PRINTEXPR)) 
	NIL 

(LAP FLUSHLAP SUBR) 
	(PUSH P 1) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(MOVEI 2 (QUOTE ((FSUBR *FSUBR) (LSUBR *LSUBR) (SUBR *SUBR)))) 
	(PUSH P 1) 
	(CALL 2 (E ASSOC)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 1 TAG1) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 -1 P) 
	(MOVEI 2 (QUOTE (*FSUBR *LSUBR))) 
	(CALL 2 (E MEMQ)) 
	(JUMPE 1 TAG10) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E GET)) 
	(JUMPE 1 TAG10) 
	(MOVEI 2 (QUOTE (USED AS SUBR))) 
	(MOVE 1 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINTMSG)) 
TAG10 	(MOVEI 3 (QUOTE T)) 
	(MOVE 2 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E SETPROP)) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E REMPROP)) 
	(MOVE 1 -3 P) 
	(CALL 1 (E TYPEFN)) 
TAG1 	(CALL 0 (E ATMARGIN)) 
	(JUMPN 1 TAG13) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG13 	(MOVE 1 -4 P) 
	(CALL 1 (E OUTPUTSTAT)) 
TAG2 	(MOVEI 1 (QUOTE ((READ)))) 
	(CALL 17 (E ERRSET)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG15) 
	(MOVEI 1 (QUOTE (READERR-FLUSHLAP))) 
	(CALL 17 (E USERERR)) 
TAG15 	(HLRZ@ 1 0 P) 
	(CALL 1 (E OUTPUTSTAT)) 
	(HLRZ@ 1 0 P) 
	(JUMPE 1 TAG4) 
	(JRST 0 TAG2) 
TAG4 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP MAKDEF SUBR) 
	(PUSH P 1) 
	(MOVE 1 3) 
	(PUSH P 2) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE LAMBDA)) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(MOVE 1 4) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE DEFPROP)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP MAPPUT SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(PUSH P 1) 
TAG1 	(MOVE 1 0 P) 
	(JUMPN 1 TAG6) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG2) 
TAG6 	(MOVE 3 -1 P) 
	(MOVEI 2 (QUOTE T)) 
	(HLRZ@ 1 0 P) 
	(CALL 3 (E PUTPROP)) 
	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP PRINTMSG SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL LINCNT)) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 (SPECIAL MSGCHAN)) 
	(CALL 2 (E OUTC)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL LINCNT)) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPN 1 TAG5) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG5 	(MOVE 2 -1 P) 
	(MOVEI 1 (QUOTE *)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 0 P) 
	(CALL 2 (E OUTC)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP READLOOP SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVEI 1 (QUOTE ((READ)))) 
	(CALL 17 (E ERRSET)) 
	(MOVEM 1 0 P) 
	(CAIN 1 (QUOTE $EOF$)) 
	(JRST 0 TAG3) 
	(HLRZ@ 1 1) 
	(CALLF@ 1 -1 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP SPECIAL FSUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE MAKESPECIAL)) 
	(JCALL 2 (E MAPCAR)) 
	NIL 

(LAP TELLTALE SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 (SPECIAL MSGCHAN)) 
	(CALL 2 (E OUTC)) 
	(PUSH P 1) 
	(CALL 0 (E CARRETN)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(MOVEI 1 (QUOTE COMPILED)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE WORDS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 (SPECIAL CODESIZE)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE CONSTANTS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 (SPECIAL CONSTSIZE)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINL)) 
	(CALL 0 (E TIME)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E *DIF)) 
	(MOVEI 2 (QUOTE 1750)) 
	(CALL 2 (E *QUO)) 
	(CALL 1 (E ADD1)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE SECONDS)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG1 	(MOVE 1 (SPECIAL UNDFUNS)) 
	(JUMPE 1 TAG2) 
	(MOVEI 2 (QUOTE *UNDEF)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E HASPROP)) 
	(JUMPE 1 TAG12) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 (SPECIAL UNDFUNS)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG12 	(HRRZ@ 1 (SPECIAL UNDFUNS)) 
	(MOVEM 1 (SPECIAL UNDFUNS)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(MOVEI 1 (QUOTE (UNDEFINED FUNCTIONS))) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(MOVE 1 0 P) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG3 	(MOVE 1 (SPECIAL GENFUNS)) 
	(JUMPE 1 TAG4) 
	(MOVEI 1 (QUOTE (GENERATED FUNCTIONS))) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(MOVE 1 (SPECIAL GENFUNS)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG4 	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E OUTC)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP TYPEFN SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL LINCNT)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 (SPECIAL SHOWNAMES)) 
	(JUMPE 1 TAG2) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 (SPECIAL MSGCHAN)) 
	(CALL 2 (E OUTC)) 
	(MOVEM 1 0 P) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL LINCNT)) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
TAG6 	(MOVE 1 -1 P) 
	(CALL 1 (E PRINS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 0 P) 
	(CALL 2 (E OUTC)) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP UNSPECIAL FSUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE MAKEUNSPECIAL)) 
	(JCALL 2 (E MAPCAR)) 
	NIL 

(BEGINBLOCK INITIALIZATION) 

(LAP CINIT SUBR) 
	(CALL 0 (E EXCISE)) 
	(MOVEI 1 (QUOTE CSTART)) 
	(JCALL 1 (E INITFN)) 
	NIL 

(LAP SUBFUN1CSTART SUBR) 
	(MOVEI 1 (QUOTE (SYS: (COMPLR . INI)))) 
	(JCALL 17 (E INPUT)) 
	NIL 

(LAP SUBFUN2CSTART SUBR) 
	(MOVEI 1 (QUOTE (DSK: (COMPLR . INI)))) 
	(JCALL 17 (E INPUT)) 
	NIL 

(LAP CSTART SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E INITFN)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE ((SUBFUN1CSTART) NIL))) 
	(CALL 17 (E ERRSET)) 
	(JUMPE 1 TAG3) 
	(MOVEI 1 (QUOTE ((COMPLR . INI)))) 
	(CALL 17 (E SYSIN)) 
TAG3 	(PUSH P 1) 
	(MOVEI 1 (QUOTE ((SUBFUN2CSTART) NIL))) 
	(CALL 17 (E ERRSET)) 
	(JUMPE 1 TAG5) 
	(MOVEI 1 (QUOTE (DSK: (COMPLR . INI)))) 
	(CALL 17 (E SYSIN)) 
TAG5 	(PUSH P 1) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE (LISP COMPILER))) 
	(CALL 1 (E PRINL)) 
	(PUSH P 1) 
	(MOVNI 6 5) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(ENDBLOCK INITIALIZATION) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMPEFFECT)))) (QUOTE ((COMPACTION DOACT~
) (MACRO ACTONMACRO)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMPACTION)))) (QUOTE ((DE DODE) (DECLAR~
E EVAL) (DEFPROP COMPDEF) (DF DODF) (DM DODM) (LAP FLUSHLAP) (SPECIAL EVAL) (UNSPECIAL EVAL) (*SUBR MAPPUT) (*FS~
UBR MAPPUT) (*LSUBR MAPPUT) (*EXPR MAPPUT) (*FEXPR MAPPUT)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE DEFACTION)))) (QUOTE ((EXPR DEFEXPR) (FE~
XPR DEFFEXPR) (MACRO DEFMACRO) (SPECIAL EVAL) (DEFACTION EVAL) (*EXPR DO*EXPR) (*FEXPR DO*FEXPR) (*SUBR EVAL) (*~
FSUBR EVAL) (*LSUBR EVAL)))) 

(SETQ LISTING NIL) 

(SETQ OUTDEV (SETQ INDEV (QUOTE DSK:))) 

(SETQ OUTEXT (QUOTE LAP)) 

(SETQ SHOWNAMES T) 

(ENDBLOCK TOPLEVEL) 

(BEGINBLOCK PASS1) 

(LAP DOP1 SUBR) 
	(MOVEI 2 (QUOTE P1)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP GENFUN SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG5) 
	(MOVE 1 -3 P) 
	(JRST 0 TAG1) 
TAG5 	(HLRZ@ 1 -3 P) 
	(CAIN 1 (QUOTE LAMBDA)) 
	(JRST 0 TAG7) 
	(MOVEI 1 (QUOTE (NOTLAMBDA-GENFUN))) 
	(CALL 17 (E USERERR)) 
TAG7 	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG11) 
	(HRRZ@ 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG11) 
	(HLRZ@ 1 -2 P) 
	(JRST 0 TAG1) 
TAG11 	(MOVEI 1 (QUOTE (SUBFUN))) 
	(CALL 17 (E NEXTSYM)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E MAKESYM)) 
	(MOVE 2 (SPECIAL GENFUNS)) 
	(MOVEM 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL GENFUNS)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE SUBR)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 3 (QUOTE SUBR)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 3 (E COMPFUNC)) 
TAG1 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP MAPP1 SUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE P1)) 
	(JCALL 2 (E MAPCAR)) 
	NIL 

(LAP P1 SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG2) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE LAMBDA)) 
	(JRST 0 TAG11) 
	(MOVE 2 (SPECIAL CURBIND)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E PASS1LAMBDA)) 
	(JRST 0 TAG3) 
TAG11 	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE LABEL)) 
	(JRST 0 TAG13) 
	(MOVE 1 -1 P) 
	(CALL 1 (E P1LABEL)) 
	(JRST 0 TAG3) 
TAG13 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E P1SUBRARGS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG3) 
TAG1 	(MOVE 1 -1 P) 
	(CALL 1 (E CONSTANTP)) 
	(JUMPE 1 TAG15) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE QUOTE)) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG3) 
TAG15 	(MOVE 2 (SPECIAL CURBIND)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG17) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
TAG17 	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SPECIALP)) 
	(JUMPE 1 TAG21) 
	(MOVE 2 (SPECIAL SPECVARS)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL SPECVARS)) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG3) 
TAG21 	(MOVE 1 -1 P) 
	(CALL 1 (E VARB)) 
	(JUMPE 1 TAG23) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG3) 
TAG23 	(MOVE 2 (SPECIAL LOCVARS)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E ASSOC)) 
	(MOVE 2 (SPECIAL P1CNT)) 
	(HRRM@ 2 1) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG3) 
TAG2 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CONSTANTP)) 
	(JUMPE 1 TAG25) 
	(MOVEI 1 (QUOTE (CONSTFUN-P1))) 
	(CALL 17 (E USERERR)) 
TAG25 	(MOVEI 2 (QUOTE PASS1)) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E GETGET)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG27) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG3) 
TAG27 	(MOVE 2 (SPECIAL CURBIND)) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG31) 
	(HRRZ@ 2 -1 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -1 P) 
TAG31 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E SPECIALP)) 
	(JUMPN 1 TAG34) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E ASSOC)) 
	(JUMPE 1 TAG33) 
TAG34 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E P1SUBRARGS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG3) 
TAG33 	(MOVE 1 -1 P) 
	(CALL 1 (E P1ELSE)) 
TAG3 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP P1ANDOR SUBR) 
	(PUSH P 1) 
	(PUSH P (SPECIAL LOCVARS)) 
	(PUSH P (SPECIAL P1CNT)) 
	(HRRZ@ 1 1) 
	(CALL 1 (E MAPP1)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 3 -2 P) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 3 (E P1BUG)) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -3 P) 
	(SUB P (C 0 0 4 4)) 
	(JCALL 2 (E CONS)) 
	NIL 

(LAP P1BIND SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 1 TAG7) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG7) 
	(MOVEI 1 (QUOTE (ATOMICVARLIST-P1BIND))) 
	(CALL 17 (E USERERR)) 
TAG7 
TAG1 	(MOVE 1 -2 P) 
	(JUMPN 1 TAG12) 
	(MOVE 1 -1 P) 
	(CALL 1 (E REVERSE)) 
	(JRST 0 TAG3) 
TAG12 	(HLRZ@ 1 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 1 (E VARIABLEP)) 
	(JUMPN 1 TAG14) 
	(MOVEI 1 (QUOTE (NOTVARIABLE-P1BIND))) 
	(CALL 17 (E USERERR)) 
TAG14 	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPE 1 TAG16) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (REPEATED VARIABLE IN))) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINTMSG)) 
TAG16 	(MOVE 1 0 P) 
	(CALL 1 (E SPECIALP)) 
	(JUMPE 1 TAG20) 
	(MOVE 2 (SPECIAL SPECVARS)) 
	(MOVE 1 0 P) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL SPECVARS)) 
	(JRST 0 TAG2) 
TAG20 	(MOVE 2 (SPECIAL LOCVARS)) 
	(MOVE 1 0 P) 
	(CALL 2 (E ASSOC)) 
	(JUMPE 1 TAG22) 
	(MOVEI 1 (QUOTE (VAR))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVE 2 1) 
	(JRST 0 TAG21) 
TAG22 	(MOVE 2 0 P) 
TAG23 
TAG21 	(PUSH P 2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL CURBIND)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL CURBIND)) 
	(POP P -1 P) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LOCVARS)) 
TAG2 	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP P1BUG SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG3) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(MOVE 2 -3 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG7) 
	(MOVE 1 -2 P) 
	(HRRM@ 1 0 P) 
TAG7 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP P1COND SUBR) 
	(PUSH P 1) 
	(PUSH P (SPECIAL LOCVARS)) 
	(PUSH P (SPECIAL P1CNT)) 
	(HRRZ@ 2 1) 
	(MOVEI 1 (QUOTE MAPP1)) 
	(CALL 2 (E MAPCAR)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 3 -2 P) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 3 (E P1BUG)) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -3 P) 
	(SUB P (C 0 0 4 4)) 
	(JCALL 2 (E CONS)) 
	NIL 

(LAP P1CONS SUBR) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(CALL 1 (E LENGTH)) 
	(CAIN 1 (QUOTE 2)) 
	(JRST 0 TAG2) 
	(MOVEI 1 (QUOTE (ARGNO-P1CONS))) 
	(CALL 17 (E USERERR)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 1 0 P) 
	(CALL 1 (E CADR)) 
	(JUMPN 1 TAG3) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE NCONS)) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG1) 
TAG3 	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E P1)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CONS)) 
	(CALL 2 (E XCONS)) 
TAG4 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP P1ELSE SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 2 (SPECIAL UNDFUNS)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL UNDFUNS)) 
	(PUSH P 1) 
	(MOVEI 3 (QUOTE *UNDEF)) 
	(MOVEI 2 (QUOTE T)) 
	(HLRZ@ 1 -2 P) 
	(CALL 3 (E PUTPROP)) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -4 P) 
	(CALL 1 (E P1SUBRARGS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(MOVNI 6 3) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP P1ERRSET SUBR) 
	(PUSH P 1) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE LAMBDA)) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(EXCH 1 0 P) 
	(CALL 1 (E GENFUN)) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 -1 P) 
	(HRRZ@ 2 2) 
	(CALL 2 (E CONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP P1EVAL SUBR) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(CALL 1 (E P1SUBRARGS)) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG5) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE EVAL)) 
	(CALL 2 (E CONS)) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE *EVAL)) 
	(CALL 2 (E CONS)) 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP P1FUNCTION SUBR) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E GENFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE QUOTE)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP P1*FUNCTION SUBR) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E GENFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE *FUNCTION)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP P1GO SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 1 (SPECIAL INPROG)) 
	(JUMPN 1 TAG3) 
	(MOVEI 1 (QUOTE (NOTINPROG-P1GO))) 
	(CALL 17 (E USERERR)) 
	(JRST 0 TAG2) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG5) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG4) 
TAG5 	(HLRZ@ 1 -2 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG6 
TAG4 	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP P1LABEL SUBR) 
	(PUSH P 1) 
	(MOVEI 3 (QUOTE T)) 
	(MOVEI 2 (QUOTE FUNVAR)) 
	(CALL 1 (E CADAR)) 
	(CALL 3 (E INITPROP)) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E CADDR)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE FUNCTION)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E P1)) 
	(MOVEI 2 (QUOTE FUNVAR)) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E DELETEPROP)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(HLRZ@ 2 -2 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE SETQ)) 
	(CALL 2 (E XCONS)) 
	(HRRZ@ 2 -2 P) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE RETURN)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE PROG)) 
	(CALL 2 (E XCONS)) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 1 (E P1)) 
	NIL 

(LAP P1PROG SUBR) 
	(MOVE 2 (SPECIAL CURBIND)) 
	(JSP 6 SPECBIND) 
	(0 2 (SPECIAL CURBIND)) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL P1SCNT)) 
	(0 0 (SPECIAL INPROG)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG12) 
	(MOVEI 1 (QUOTE (PROGTOOSHORT-P1PROG))) 
	(CALL 17 (E USERERR)) 
TAG12 	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 (SPECIAL INPROG)) 
	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1BIND)) 
	(MOVEM 1 -3 P) 
	(MOVE 1 (SPECIAL LOCVARS)) 
	(MOVEM 1 -2 P) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVEM 1 (SPECIAL P1SCNT)) 
TAG1 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG15) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -4 P) 
	(CALL 2 (E ASSOC)) 
	(JUMPE 1 TAG17) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (MULTIPLY DEFINED TAG IN))) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINTMSG)) 
TAG17 	(HLRZ@ 1 -4 P) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -1 P) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 -4 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG14) 
TAG15 	(HLRZ@ 1 -4 P) 
	(CALL 1 (E P1)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -1 P) 
TAG20 
TAG14 	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 3 -2 P) 
	(MOVE 2 1) 
	(MOVE 1 (SPECIAL P1SCNT)) 
	(CALL 3 (E P1BUG)) 
	(MOVEI 2 (QUOTE VALUE)) 
	(MOVEI 1 (QUOTE LOCVARS)) 
	(CALL 2 (E GET)) 
	(MOVEM 1 -2 P) 
TAG3 	(HRRZ@ 1 -2 P) 
	(JUMPE 1 TAG5) 
	(MOVE 2 -3 P) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CALL 2 (E MEMBER)) 
	(JUMPE 1 TAG24) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CDAR)) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG24) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (UNUSED PROG VARIABLE IN))) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINTMSG)) 
	(MOVE 2 (SPECIAL SPECVARS)) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL SPECVARS)) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CALL 1 (E MAKESPECIAL)) 
TAG24 
TAG4 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG3) 
TAG5 	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E REVERSE)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE PROG)) 
	(CALL 2 (E XCONS)) 
	(PUSHJ P SPECSTR) 
	(SUB P (C 0 0 5 5)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP P1RETURN SUBR) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL INPROG)) 
	(JUMPN 1 TAG2) 
	(MOVEI 1 (QUOTE (NOTINPROG-P1RETURN))) 
	(CALL 17 (E USERERR)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 1 0 P) 
	(JUMPE 1 TAG5) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
TAG6 
TAG5 	(CALL 1 (E P1)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE RETURN)) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP P1SETQ SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HLRZ@ 1 1) 
	(CALL 1 (E VARIABLEP)) 
	(JUMPN 1 TAG5) 
	(MOVEI 1 (QUOTE (NOTVARIABLE-P1SETQ))) 
	(CALL 17 (E USERERR)) 
TAG5 	(MOVE 2 (SPECIAL CURBIND)) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 -1 P) 
	(JUMPE 1 TAG7) 
	(HRRZ@ 1 1) 
	(JRST 0 TAG6) 
TAG7 	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
TAG10 
TAG6 	(MOVEM 1 0 P) 
	(CALL 1 (E VARB)) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E P1)) 
	(MOVEM 1 -2 P) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE SETQ)) 
	(SUB P (C 0 0 4 4)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP P1STORE SUBR) 
	(PUSH P 1) 
	(CALL 1 (E CADDR)) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(HLRZ@ 2 -2 P) 
	(SUB P (C 0 0 3 3)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP P1SUBRARGS SUBR) 
	(PUSH P 1) 
	(CALL 1 (E LENGTH)) 
	(MOVE 2 (SPECIAL NACS)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG2) 
	(MOVEI 1 (QUOTE (EXTRAARGS-P1SUBRARGS))) 
	(CALL 17 (E USERERR)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(CALL 1 (E MAPP1)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP PASS1 SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL CURBIND)) 
	(0 0 (SPECIAL P1SCNT)) 
	(0 0 (SPECIAL INPROG)) 
	(0 0 (SPECIAL FOUNDFREE)) 
	(PUSH P 2) 
	(CLEARM 1 (SPECIAL INPROG)) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(CLEARB 1 (SPECIAL SPECVARS)) 
	(MOVEM 1 (SPECIAL LOCVARS)) 
	(HRRZ@ 1 2) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1BIND)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E LENGTH)) 
	(MOVE 2 (SPECIAL NACS)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE (EXTRAARGS-PASS1))) 
	(CALL 17 (E USERERR)) 
TAG6 	(MOVEI 1 (QUOTE (SUBFUN))) 
	(CALL 17 (E STARTSYM)) 
	(HLRZ@ 1 -2 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E P1)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEM 1 -2 P) 
	(MOVEI 1 (QUOTE (SUBFUN))) 
	(CALL 17 (E STOPSYM)) 
	(MOVE 1 (SPECIAL FOUNDFREE)) 
	(JUMPE 1 TAG10) 
	(CALL 1 (E REVERSE)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (UNDECLARED FREE VARIABLES IN))) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINTMSG)) 
TAG10 	(MOVE 1 (SPECIAL LOCVARS)) 
	(CLEARM 1 (SPECIAL LOCVARS)) 
	(MOVEM 1 0 P) 
TAG1 	(MOVE 1 0 P) 
	(JUMPN 1 TAG12) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG2) 
TAG12 	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E SPECIALP)) 
	(JUMPN 1 TAG14) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(HLRZ@ 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LOCVARS)) 
	(MOVEI 3 (QUOTE T)) 
	(MOVEI 2 (QUOTE LOCAL)) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E SETPROP)) 
	(JRST 0 TAG13) 
TAG14 	(MOVE 2 (SPECIAL SPECVARS)) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL SPECVARS)) 
TAG15 
TAG13 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP PASS1FSUBR SUBR) 
	(POPJ P) 
	NIL 

(LAP PASS1FUNVAR SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 1 (E P1)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E P1SUBRARGS)) 
	(POP P 2) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP PASS1LAMBDA SUBR) 
	(JSP 6 SPECBIND) 
	(0 2 (SPECIAL CURBIND)) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(CALL 1 (E P1SUBRARGS)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E P1BIND)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E LENGTH)) 
	(POP P 2) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG5) 
	(MOVEI 1 (QUOTE (ARGNOERR-P1LAM))) 
	(CALL 17 (E USERERR)) 
TAG5 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E CADDR)) 
	(CALL 1 (E P1)) 
	(MOVEM 1 0 P) 
	(MOVE 1 (SPECIAL P1CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P1CNT)) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE LAMBDA)) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -2 P) 
	(SUB P (C 0 0 4 4)) 
	(CALL 2 (E CONS)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP PASS1LSUBR SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E MAPP1)) 
	(POP P 2) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP PASS1MACRO SUBR) 
	(MOVEI 2 (QUOTE MACRO)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 1 (E P1)) 
	NIL 

(LAP PASS1SUBR SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E P1SUBRARGS)) 
	(POP P 2) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP PASS1UNDEF SUBR) 
	(MOVE 2 (SPECIAL UNDFUNS)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL UNDFUNS)) 
	(POP P 1) 
	(JCALL 1 (E PASS1SUBR)) 
	NIL 

(LAP SPECIALP SUBR) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(JCALL 2 (E HASPROP)) 
	NIL 

(LAP VARB SUBR) 
	(PUSH P 1) 
	(MOVE 2 (SPECIAL CURBIND)) 
	(CALL 2 (E ASSOCR)) 
	(JUMPN 1 TAG3) 
	(MOVE 1 0 P) 
	(CALL 1 (E SPECIALP)) 
	(JUMPN 1 TAG1) 
	(MOVE 2 (SPECIAL FOUNDFREE)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL FOUNDFREE)) 
	(MOVE 1 0 P) 
	(CALL 1 (E MAKESPECIAL)) 
TAG1 	(MOVE 2 (SPECIAL SPECVARS)) 
	(MOVE 1 0 P) 
	(CALL 2 (E ADDTOLIST)) 
	(MOVEM 1 (SPECIAL SPECVARS)) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP VARIABLEP SUBR) 
	(PUSH P 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(CALL 1 (E CONSTANTP)) 
	(JUMPE 1 TAG1) 
TAG2 	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE PASS1)))) (QUOTE ((EXPR PASS1SUBR) (*EXP~
R PASS1SUBR) (SUBR PASS1SUBR) (*SUBR PASS1SUBR) (*UNDEF PASS1UNDEF) (LSUBR PASS1LSUBR) (*LSUBR PASS1LSUBR) (FEXP~
R PASS1FSUBR) (*FEXPR PASS1FSUBR) (FSUBR PASS1FSUBR) (*FSUBR PASS1FSUBR) (P1 DOP1) (FUNVAR PASS1FUNVAR) (MACRO P~
ASS1MACRO)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P1)))) (QUOTE ((COND P1COND) (GO P1GO) (~
PROG P1PROG) (EVAL P1EVAL) (ERRSET P1ERRSET) (SETQ P1SETQ) (STORE P1STORE) (AND P1ANDOR) (CONS P1CONS) (OR P1AND~
OR) (*FUNCTION P1*FUNCTION) (FUNCTION P1FUNCTION) (RETURN P1RETURN)))) 

(BEGINBLOCK INTERNALMACROS) 

(DEFPROP INMACRO PASS1INMACRO PASS1) 

(LAP PASS1INMACRO SUBR) 
	(MOVEI 2 (QUOTE INMACRO)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 1 0 P) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 1 (E P1)) 
	NIL 

(LAP APPEND INMACRO) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG1) 
	(HRRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 1 0 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE *APPEND)) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP LIST INMACRO) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG1) 
	(HRRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 2 0 P) 
	(MOVEI 1 (QUOTE NCONS)) 
	(CALL 2 (E CONS)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 1 0 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CONS)) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP NOT INMACRO) 
	(HRRZ@ 2 1) 
	(MOVEI 1 (QUOTE NULL)) 
	(JCALL 2 (E CONS)) 
	NIL 

(LAP ZEROP INMACRO) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE EQ)) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(ENDBLOCK INTERNALMACROS) 

(ENDBLOCK PASS1) 

(BEGINBLOCK PASS2) 

(LAP ACEFFECTS SUBR) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE ACS)) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG2) 
	(CALL 1 (E CADR)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL ALLACS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP ACNUMP SUBR) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG2) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVE 1 0 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL NACS)) 
	(CALL 1 (E ADD1)) 
	(MOVE 2 0 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG1) 
TAG2 	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP BINDARGS SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG3) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP BOOLAND SUBR) 
	(MOVEI 4 (QUOTE T)) 
	(PUSH P 3) 
	(HRRZ@ 3 3) 
	(HLRZ@ 2 0 P) 
	(HRRZ@ 1 1) 
	(CALL 4 (E BOOLARGS)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP BOOLARGS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(CALL 0 (E CLRLOCS)) 
	(CALL 0 (E CLEAR1)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E RST)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVEI 3 (QUOTE LEVEL)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 3 (E PUTPROP)) 
TAG1 	(MOVE 1 -4 P) 
	(JUMPN 1 TAG10) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG12) 
	(MOVE 1 -2 P) 
	(CALL 1 (E OUTJRST)) 
TAG12 	(JRST 0 TAG3) 
TAG10 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG14) 
	(HRRZ@ 1 -4 P) 
	(JUMPE 1 TAG2) 
TAG14 	(HLRZ@ 1 -4 P) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG15) 
	(TDZA 1 1) 
TAG15 	(MOVEI 1 (QUOTE T)) 
	(PUSH P 1) 
	(MOVE 2 -5 P) 
	(JUMPE 2 TAG17) 
	(MOVE 2 -2 P) 
	(JRST 0 TAG16) 
TAG17 	(MOVE 2 -4 P) 
TAG20 
TAG16 	(POP P 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPPRED)) 
	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(HLRZ@ 1 -4 P) 
	(CALL 2 (E COMPPRED)) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTENDTAG)) 
TAG3 	(CALL 0 (E CLEARBOTH)) 
	(CALL 0 (E CLEARACS)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP BOOLEQ SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPN 2 TAG5) 
	(JUMPN 3 TAG5) 
	(HRRZ@ 1 -12 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPSTAT)) 
	(HRRZ@ 1 -12 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E COMPSTAT)) 
	(JRST 0 TAG2) 
TAG5 	(MOVE 1 -11 P) 
	(JUMPN 1 TAG11) 
	(MOVE 1 -10 P) 
	(JUMPN 1 TAG10) 
TAG11 	(CLEARM 1 -7 P) 
	(CLEARM 1 -6 P) 
	(JRST 0 TAG7) 
TAG10 	(HLRZ@ 1 -10 P) 
	(MOVEM 1 -7 P) 
	(HRRZ@ 1 -10 P) 
	(MOVEM 1 -6 P) 
TAG12 
TAG7 	(MOVE 1 -12 P) 
	(CALL 1 (E LENGTH)) 
	(CAIN 1 (QUOTE 2)) 
	(JRST 0 TAG15) 
	(MOVEI 1 (QUOTE (ARGNOERR-BOOLEQ))) 
	(CALL 17 (E USERERR)) 
TAG15 	(HLRZ@ 1 -12 P) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -12 P) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -3 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -2 P) 
	(MOVE 1 -6 P) 
	(CALL 1 (E RST)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E ACNUMP)) 
	(JUMPE 1 TAG17) 
	(MOVE 1 -2 P) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -5 P) 
	(JRST 0 TAG16) 
TAG17 	(MOVE 1 -3 P) 
	(CALL 1 (E ACNUMP)) 
	(JUMPE 1 TAG20) 
	(MOVE 1 -3 P) 
	(MOVEM 1 -4 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -5 P) 
	(JRST 0 TAG16) 
TAG20 	(CALL 0 (E FREEAC)) 
	(MOVE 2 0 P) 
	(MOVEM 1 -4 P) 
	(CALL 2 (E LOADARG)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -5 P) 
TAG21 
TAG16 	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E REMOVE)) 
	(CALL 0 (E SAVEACS)) 
	(MOVE 1 -7 P) 
	(JUMPE 1 TAG24) 
	(MOVEI 1 (QUOTE CAMN)) 
	(JRST 0 TAG23) 
TAG24 	(MOVEI 1 (QUOTE CAME)) 
TAG25 
TAG23 	(MOVE 3 -5 P) 
	(MOVE 2 -4 P) 
	(CALL 3 (E OUT1)) 
	(MOVE 1 -11 P) 
	(JUMPE 1 TAG30) 
	(MOVE 2 -6 P) 
	(CALL 2 (E BOOLVALUE)) 
	(MOVEM 1 -4 P) 
TAG30 	(MOVE 1 -10 P) 
	(JUMPE 1 TAG32) 
	(HRRZ@ 1 1) 
	(CALL 1 (E OUTJRST)) 
TAG32 	(MOVE 1 -4 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 13 13)) 
	(POPJ P) 
	NIL 

(LAP BOOLEXPR SUBR) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE P2BOOL)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 2 -1 P) 
	(EXCH 1 0 P) 
	(CALLF@ 3 0 P) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP BOOLNULL SUBR) 
	(CALL 1 (E CADR)) 
	(HLRZ@ 2 3) 
	(PUSH P 1) 
	(PUSH P 3) 
	(JUMPE 2 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(HRRZ@ 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(EXCH 1 -1 P) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 2 (E COMPPRED)) 
	NIL 

(LAP BOOLOR SUBR) 
	(HRRZ@ 1 1) 
	(HLRZ@ 2 3) 
	(PUSH P 1) 
	(PUSH P 3) 
	(JUMPE 2 TAG1) 
	(TDZA 2 2) 
TAG1 	(MOVEI 2 (QUOTE T)) 
	(MOVEI 4 (QUOTE NIL)) 
	(HRRZ@ 3 0 P) 
	(MOVE 1 -1 P) 
	(CALL 4 (E BOOLARGS)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP BOOLVALUE SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 3 1) 
	(EXCH 2 1) 
	(MOVEI 1 (QUOTE TDZA)) 
	(CALL 3 (E OUT1)) 
	(PUSH P 1) 
	(EXCH 1 -2 P) 
	(CALL 1 (E OUTENDTAG)) 
	(PUSH P 1) 
	(MOVEI 3 (QUOTE (QUOTE T))) 
	(MOVE 2 -4 P) 
	(MOVEI 1 (QUOTE MOVEI)) 
	(CALL 3 (E OUT1)) 
	(PUSH P 1) 
	(MOVE 2 -5 P) 
	(MOVE 1 2) 
	(CALL 2 (E MARKVAL)) 
	(PUSH P 1) 
	(MOVNI 6 4) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CALLFSUBR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(PUSH P 1) 
	(CALL 0 (E CLEARBOTH)) 
	(MOVEI 2 (QUOTE QT)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 (SPECIAL FARGAC)) 
	(CALL 2 (E LOADARG)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E PROTECTACS)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E MARKVAL)) 
	(MOVE 2 -1 P) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 17)) 
	(CALL 2 (E OUTCALL)) 
	(MOVE 2 -3 P) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 6 6)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP CALLFUNARGS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E COMPEXPR)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E COMPARGS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(PUSH P 1) 
	(CALL 2 (E CLRCCLST)) 
	(MOVE 1 0 P) 
	(CALL 1 (E LOADSUBRARGS)) 
	(CALL 0 (E CLEARBOTH)) 
	(CALL 0 (E CLEARACS)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(MOVE 1 -5 P) 
	(CALL 2 (E MARKVAL)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 1 (E LOC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E OUTCALLF)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 2 -5 P) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 10 10)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP CALLLSUBR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(PUSH P 1) 
	(CALL 0 (E CLEAR1)) 
	(MOVE 1 0 P) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE (NIL . TAKEN))) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEI 5 (QUOTE 0)) 
	(MOVEI 4 (QUOTE 0)) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 0)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 5 (E GENCONST)) 
	(CALL 1 (E OUTPUSH)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -6 P) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 -6 P) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E RESTORE)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -2 P) 
	(MOVEI 1 (QUOTE (NIL . TAKEN))) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E OUTPUSH)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E REMOVE)) 
	(HRRZ@ 1 -6 P) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 -2 P) 
	(CALL 0 (E SAVEACS)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CAMN 1 -2 P) 
	(JRST 0 TAG12) 
	(MOVEI 1 (QUOTE (PDLTOOLONG-LSUBRCALL))) 
	(CALL 17 (E COMPERR)) 
TAG12 	(MOVE 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE 6)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE MOVNI)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
TAG3 	(CALL 0 (E SLOTPOP)) 
	(MOVE 1 -5 P) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG4) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 -5 P) 
	(JRST 0 TAG3) 
TAG4 	(CALL 0 (E CLEARBOTH)) 
	(CALL 0 (E CLEARACS)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(MOVE 1 -11 P) 
	(CALL 2 (E MARKVAL)) 
	(MOVE 2 -7 P) 
	(MOVEM 1 -3 P) 
	(MOVEI 1 (QUOTE 16)) 
	(CALL 2 (E OUTJCALL)) 
	(MOVE 1 -4 P) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 2 -10 P) 
	(MOVE 1 -3 P) 
	(SUB P (C 0 0 13 13)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP CALLSUBR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -3 P) 
	(PUSH P 1) 
	(CALL 1 (E COMPARGS)) 
	(PUSH P 1) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 2 (QUOTE COMMU)) 
	(MOVE 1 -5 P) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(MOVE 1 -2 P) 
	(CAIE 1 (QUOTE 2)) 
	(JRST 0 TAG5) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E ILOC)) 
	(CAME 1 (SPECIAL VALUEAC)) 
	(JRST 0 TAG5) 
	(MOVE 1 -3 P) 
	(CALL 1 (E REVERSE)) 
	(MOVEM 1 -3 P) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -5 P) 
TAG5 	(MOVE 1 -5 P) 
	(CALL 1 (E SIDEEFFECTS)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG10) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CLRCCLST)) 
TAG10 	(MOVE 1 -3 P) 
	(CALL 1 (E LOADSUBRARGS)) 
	(MOVE 1 0 P) 
	(JUMPE 1 TAG12) 
	(CALL 0 (E CLEARBOTH)) 
TAG12 	(MOVE 1 -5 P) 
	(CALL 1 (E PROTECTACS)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(MOVE 1 -7 P) 
	(CALL 2 (E MARKVAL)) 
	(MOVE 2 -5 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E OUTCALL)) 
	(MOVE 2 -6 P) 
	(MOVE 1 -1 P) 
	(SUB P (C 0 0 11 11)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP CLEAR1 SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 0 (E CLEARBOTH)) 
	(PUSH P 1) 
	(CALL 0 (E SAVEACS)) 
	(PUSH P 1) 
	(CALL 0 (E CLRPVARS)) 
	(PUSH P 1) 
	(MOVNI 6 3) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(LAP CLEARBOTH SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E CLRCCLST)) 
	(PUSH P 1) 
	(CALL 0 (E CLRSPECS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(LAP CLEARAC SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 1 (E CPUSH)) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE NIL)) 
	(EXCH 1 -2 P) 
	(CALL 2 (E SETSLOT)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP CLEARITALL SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 0 (E CLEARBOTH)) 
	(PUSH P 1) 
	(CALL 0 (E CLEARACS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(LAP CLEARACS SUBR) 
	(PUSH P (SPECIAL NACS)) 
TAG1 	(MOVE 1 0 P) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG3) 
	(CALL 1 (E CLEARAC)) 
	(MOVE 1 0 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP CLRCCLST SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (SPECIAL CCLST)) 
TAG1 	(MOVE 1 0 P) 
	(JUMPN 1 TAG7) 
	(MOVE 1 -1 P) 
	(JUMPE 1 TAG11) 
	(CLEARM 1 (SPECIAL CCLST)) 
TAG11 	(JRST 0 TAG4) 
TAG7 	(MOVE 2 -2 P) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ASSOC)) 
	(JUMPN 1 TAG2) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(HLRZ@ 1 0 P) 
	(CALL 2 (E CSFUN)) 
TAG2 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP CLRLOCS SUBR) 
	(PUSH P (SPECIAL LDLST)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG6) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(CALL 1 (E CAAR)) 
	(CALL 2 (E ASSOC)) 
	(JUMPN 1 TAG3) 
TAG2 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 1 -2 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG4) 
	(MOVE 1 0 P) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEM 1 -1 P) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG14) 
	(MOVE 2 (SPECIAL P2CNT)) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
	(JRST 0 TAG2) 
TAG14 	(HRRZ@ 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPN 1 TAG2) 
TAG4 	(MOVE 2 (SPECIAL P2CNT)) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTPUSH)) 
	(JRST 0 TAG2) 
TAG6 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP CLRPVARS SUBR) 
	(MOVE 1 (SPECIAL PROGSW)) 
	(JUMPE 1 TAG3) 
	(CLEARM 1 (SPECIAL PROGSW)) 
TAG1 	(MOVE 1 (SPECIAL PROGVARS)) 
	(JUMPN 1 TAG7) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVEM 1 (SPECIAL PRSSL)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 (SPECIAL MINDEPTH)) 
	(JRST 0 TAG3) 
TAG7 	(MOVE 2 (SPECIAL P2CNT)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(CALL 2 (E ILOC)) 
	(JUMPN 1 TAG10) 
	(HLRZ@ 1 (SPECIAL PROGVARS)) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVEI 1 (QUOTE ((QUOTE NIL)))) 
	(CALL 1 (E OUTPUSH)) 
TAG10 	(HRRZ@ 1 (SPECIAL PROGVARS)) 
	(MOVEM 1 (SPECIAL PROGVARS)) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(POPJ P) 
	NIL 

(LAP CLRSPECS SUBR) 
	(PUSH P (SPECIAL LDLST)) 
TAG1 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(CALL 1 (E CAAR)) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG7) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E CLRSPVAR)) 
TAG7 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP CLRSPVAR SUBR) 
	(PUSH P 1) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(CALL 2 (E ILOC)) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPN 1 TAG5) 
	(MOVE 2 (SPECIAL P2CNT)) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E SLOTPUSH)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTPUSH)) 
	(JRST 0 TAG4) 
TAG5 	(MOVE 1 0 P) 
	(CALL 1 (E ACNUMP)) 
	(JUMPE 1 TAG6) 
	(MOVE 1 0 P) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTPUSH)) 
TAG6 
TAG4 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLRTRASH SUBR) 
	(MOVE 3 2) 
	(PUSH P 2) 
	(MOVE 2 1) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL ACS)) 
	(CALL 3 (E CLRTRASH1)) 
	(MOVE 3 -1 P) 
	(POP P 2) 
	(MOVE 1 (SPECIAL PDL)) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 3 (E CLRTRASH1)) 
	NIL 

(LAP CLRTRASH1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG3) 
	(HLRZ@ 1 1) 
	(JUMPE 1 TAG7) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG7) 
	(MOVE 2 -1 P) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E MEMQ)) 
	(JUMPE 1 TAG7) 
	(HLRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG11) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG7) 
TAG11 	(HRRZS@ 0 -2 P) 
TAG7 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP COMPARGS SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPN 1 TAG6) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG6 	(MOVE 1 -1 P) 
	(CALL 1 (E ADD1)) 
	(MOVE 2 1) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E COMPEXPR)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP COMPEXPR SUBR) 
	(MOVEI 3 (QUOTE NIL)) 
	(JCALL 3 (E COMPFORM)) 
	NIL 

(LAP COMPPRED SUBR) 
	(MOVE 3 2) 
	(MOVEI 2 (QUOTE NIL)) 
	(JCALL 3 (E COMPFORM)) 
	NIL 

(LAP COMPFORM SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG2) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE LAMBDA)) 
	(JRST 0 TAG11) 
	(MOVE 1 -3 P) 
	(CALL 3 (E PASS2LAMBDA)) 
	(JRST 0 TAG3) 
TAG11 	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E CALLFUNARGS)) 
	(JRST 0 TAG3) 
TAG1 	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVEM 1 0 P) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG13) 
	(MOVE 2 (SPECIAL LDLST)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LDLST)) 
TAG13 	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E TESTJUMP)) 
	(JRST 0 TAG3) 
TAG2 	(MOVEI 2 (QUOTE PASS2)) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E GETGET)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG15) 
	(CALL 1 (E CADR)) 
	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(PUSH P 1) 
	(MOVE 1 -4 P) 
	(CALLF@ 3 0 P) 
	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG3) 
TAG15 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPN 1 TAG20) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E ASSOC)) 
	(JUMPE 1 TAG17) 
TAG20 	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E CALLFUNARGS)) 
	(JRST 0 TAG3) 
TAG17 	(MOVEI 1 (QUOTE (UNKNOWNFUNCTION-COMPFORM))) 
	(CALL 17 (E COMPERR)) 
	(MOVEI 1 (QUOTE NIL)) 
TAG3 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP COMPSTAT SUBR) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVEI 2 (QUOTE NIL)) 
	(JCALL 3 (E COMPFORM)) 
	NIL 

(LAP COPT SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVE 1 3) 
	(CALL 2 (E ILOC)) 
	(PUSH P (SPECIAL CCLST)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG3) 
	(CALL 1 (E CADAR)) 
	(CAME 1 -5 P) 
	(JRST 0 TAG6) 
	(MOVE 2 -4 P) 
	(HLRZ@ 1 -2 P) 
	(CALL 1 (E CDDR)) 
	(CALL 2 (E ILOC)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG6) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -4 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E ILOC)) 
	(JUMPE 1 TAG6) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG6 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 6 6)) 
	(POPJ P) 
	NIL 

(LAP CPUSH SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEM 1 -2 P) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG10) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG6) 
TAG1 	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 (SPECIAL PDL)) 
	(MOVEM 1 0 P) 
TAG2 	(MOVE 1 0 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG3) 
	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG20) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG17) 
TAG20 	(MOVE 1 -1 P) 
	(MOVEM 1 -3 P) 
TAG17 	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 2 -2 P) 
	(CAMN 2 1) 
	(JRST 0 TAG4) 
TAG3 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG4 	(MOVE 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E SETSLOT)) 
	(HRRZ@ 1 -2 P) 
	(JUMPN 1 TAG23) 
	(MOVEI 2 (QUOTE DUP)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 -4 P) 
	(CALL 2 (E SETSLOT)) 
TAG23 	(MOVE 2 -1 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E OUTMOVEM)) 
	(JRST 0 TAG10) 
TAG5 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG25) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG4) 
TAG25 
TAG6 	(MOVE 1 (SPECIAL PROGSW)) 
	(JUMPE 1 TAG27) 
	(MOVE 2 (SPECIAL LOCVARS)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E ASSOC)) 
	(JUMPN 1 TAG27) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 0 P) 
	(CALL 0 (E CLRPVARS)) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG32) 
	(MOVE 2 (SPECIAL PDLDEPTH)) 
	(MOVE 1 0 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 -4 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -4 P) 
TAG32 
TAG27 	(MOVE 1 -2 P) 
	(CALL 1 (E SLOTPUSH)) 
	(HRRZ@ 1 -2 P) 
	(JUMPN 1 TAG34) 
	(MOVEI 2 (QUOTE DUP)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(JRST 0 TAG33) 
TAG34 	(MOVEI 2 (QUOTE NIL)) 
TAG35 
TAG33 	(MOVE 1 -4 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -4 P) 
	(CALL 1 (E OUTPUSH)) 
TAG10 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP CSFUN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 2 (SPECIAL LDLST)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(MOVE 2 -1 P) 
	(CALL 2 (E ILOC)) 
	(JUMPN 1 TAG5) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E LOADCARCDR)) 
TAG5 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP CSTEP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 3) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E COPT)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG7) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG1) 
TAG7 	(MOVEI 2 (QUOTE CARCDR)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E GET)) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 1) 
	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 3 (E CSTEP)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG1 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP DOP2BOOL SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 0 (E CLEARBOTH)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEI 3 (QUOTE SET)) 
	(MOVEI 2 (QUOTE T)) 
	(PUSH P 1) 
	(CALL 3 (E PUTPROP)) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG5) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL CTAG)) 
	(0 0 (SPECIAL RSL)) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 2 (E CONS)) 
	(MOVE 3 1) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E BOOLEXPR)) 
	(MOVE 2 0 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E BOOLVALUE)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E TESTJUMP)) 
	(PUSHJ P SPECSTR) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 3 -1 P) 
	(JUMPN 3 TAG12) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 2 (E CONS)) 
	(EXCH 3 1) 
	(JRST 0 TAG11) 
TAG12 	(MOVE 3 -1 P) 
TAG13 
TAG11 	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E BOOLEXPR)) 
	(MOVE 1 -1 P) 
	(JUMPN 1 TAG16) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTENDTAG)) 
TAG16 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP DOP2ELSE SUBR) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE P2ELSE)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(EXCH 2 -1 P) 
	(EXCH 1 0 P) 
	(CALLF@ 3 0 P) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP DOP2VAL SUBR) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE P2VAL)) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(PUSH P 3) 
	(EXCH 2 -2 P) 
	(EXCH 1 -1 P) 
	(CALLF@ 3 -1 P) 
	(POP P 2) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP DVP SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 1 1) 
	(CAIN 1 (QUOTE QT)) 
	(JRST 0 TAG3) 
	(HRRZ@ 1 -2 P) 
	(CAIN 1 (QUOTE DUP)) 
	(JRST 0 TAG3) 
	(HRRZ@ 1 -2 P) 
	(CAIE 1 (QUOTE TAKEN)) 
	(JRST 0 TAG11) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG11 	(HLRZ@ 1 -2 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG13) 
	(HRRZ@ 1 -2 P) 
	(JUMPE 1 TAG3) 
TAG13 	(MOVE 2 (SPECIAL LOCVARS)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG15) 
	(HRRZ@ 1 -2 P) 
	(JUMPN 1 TAG15) 
	(HRRZ@ 2 0 P) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG15) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG15 	(MOVE 1 (SPECIAL LDLST)) 
	(MOVEM 1 -1 P) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG20) 
	(MOVE 2 (SPECIAL VARLIST)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 -1 P) 
	(JUMPE 1 TAG22) 
	(HRRZ@ 2 -2 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E DVP)) 
	(JRST 0 TAG21) 
TAG22 	(MOVEI 1 (QUOTE NIL)) 
TAG23 
TAG21 	(JRST 0 TAG2) 
TAG20 	(HLRZ@ 1 -2 P) 
	(HLRZ@ 2 -1 P) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG26) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG31) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG30) 
TAG31 	(MOVE 2 (SPECIAL P2CNT)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E CONS)) 
TAG32 
TAG30 	(CALL 1 (E LOC)) 
	(PUSH P 1) 
	(HLRZ@ 1 -2 P) 
	(CALL 1 (E LOC)) 
	(POP P 2) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG26) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG26 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP EQUIVTAG SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 2 (SPECIAL GOLIST)) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(HRRZ@ 1 1) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(CALL 0 (E CURFUN)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (UNDEFINED TAG IN))) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINTMSG)) 
	(MOVE 1 (SPECIAL EXIT)) 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP EXITBUM SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 2 (QUOTE ((CALL JCALL) (PUSHJ JRST)))) 
	(HLRZ@ 1 (SPECIAL LASTOUT)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 (SPECIAL LASTOUT)) 
	(CLEARM 1 (SPECIAL LASTOUT)) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E RESTORE)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG7) 
	(HLRZ@ 1 (SPECIAL LASTOUT)) 
	(CLEARM 1 (SPECIAL LASTOUT)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(HRRZ@ 3 -1 P) 
	(HLRZ@ 3 3) 
	(MOVEI 2 (QUOTE P)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 3 (E SUBST)) 
	(HRRZ@ 2 -2 P) 
	(HRRZ@ 2 2) 
	(CALL 2 (E CONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG2) 
TAG7 
TAG5 	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E RESTORE)) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG11) 
	(MOVEI 1 (QUOTE (JRST 0 SPECSTR))) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG10) 
TAG11 	(MOVEI 1 (QUOTE (POPJ P))) 
	(CALL 1 (E OUTSTAT)) 
TAG12 
TAG10 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP FREEAC SUBR) 
	(MOVE 1 (SPECIAL VALUEAC)) 
	(JCALL 1 (E FREEAC1)) 
	NIL 

(LAP FREEAC1 SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 1 TAG6) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG6) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG2) 
TAG6 	(MOVE 1 (SPECIAL ACS)) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 0 P) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG11) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG3) 
	(MOVE 1 -2 P) 
	(CALL 1 (E CPUSH)) 
	(MOVE 1 -2 P) 
	(JRST 0 TAG2) 
TAG13 
TAG11 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG16) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG16 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP FINDFREEAC SUBR) 
	(MOVEI 1 (QUOTE NIL)) 
	(JCALL 1 (E FREEAC1)) 
	NIL 

(LAP FREEZE SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 2 (SPECIAL ACS)) 
	(CALL 2 (E FREEZE1)) 
	(PUSH P 1) 
	(MOVE 2 (SPECIAL PDL)) 
	(EXCH 1 -2 P) 
	(CALL 2 (E FREEZE1)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP FREEZE1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
TAG1 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(CALL 1 (E CAAR)) 
	(CAME 1 -1 P) 
	(JRST 0 TAG7) 
	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG11) 
	(MOVE 2 (SPECIAL P2CNT)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(HRLM@ 1 0 P) 
	(JRST 0 TAG10) 
TAG11 	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(CAIE 1 (QUOTE DUP)) 
	(JRST 0 TAG12) 
	(HRRZS@ 0 0 P) 
TAG12 
TAG10 
TAG7 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP GENCONST SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(PUSH P 5) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CAIN 5 (QUOTE 0)) 
	(JRST 0 TAG5) 
	(MOVE 1 (SPECIAL *AT)) 
	(CALL 1 (E NCONS)) 
	(MOVEM 1 0 P) 
TAG5 	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -4 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 -5 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE C)) 
	(MOVEM 1 0 P) 
	(SUB P (C 0 0 6 6)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP GETSLOT SUBR) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPN 1 TAG2) 
	(MOVEI 1 (QUOTE (NOTSLOT-GETSLOT))) 
	(CALL 17 (E COMPERR)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 2 (SPECIAL NACS)) 
	(MOVE 1 0 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG3) 
	(MOVE 1 0 P) 
	(CALL 1 (E PRINTMSG)) 
	(MOVEI 1 (QUOTE (NOTAC-GETSLOT))) 
	(CALL 17 (E COMPERR)) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 2 (QUOTE 0)) 
	(MOVE 1 0 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG4) 
	(MOVE 1 0 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 2 (SPECIAL ACS)) 
	(CALL 2 (E NTHCDR)) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(CALL 1 (E ABS)) 
	(MOVE 2 (SPECIAL PDLDEPTH)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG5) 
	(MOVE 1 0 P) 
	(CALL 1 (E PRINTMSG)) 
	(MOVEI 1 (QUOTE (NOTONPDL-GETSLOT))) 
	(CALL 17 (E COMPERR)) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 1 0 P) 
	(CALL 1 (E MINUS)) 
	(MOVE 2 (SPECIAL PDL)) 
	(CALL 2 (E NTHCDR)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP ILOC SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 2 TAG1) 
	(MOVE 1 2) 
	(CALL 1 (E SLOTCONT)) 
	(MOVE 2 -10 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG14) 
	(MOVE 1 -7 P) 
	(JRST 0 TAG7) 
TAG14 
TAG1 	(HRRZ@ 1 -10 P) 
	(CAIE 1 (QUOTE QT)) 
	(JRST 0 TAG16) 
	(HLRZ@ 1 -10 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE QUOTE)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG7) 
TAG16 	(MOVE 2 (SPECIAL PDL)) 
	(MOVE 1 (SPECIAL ACS)) 
	(CALL 2 (E *APPEND)) 
	(MOVEM 1 -3 P) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 0 P) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 -2 P) 
	(HRRZ@ 1 -10 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG20) 
	(HRRZ@ 1 -10 P) 
	(JRST 0 TAG17) 
TAG20 	(MOVE 1 (SPECIAL P2CNT)) 
TAG21 
TAG17 	(MOVEM 1 -6 P) 
TAG2 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(JUMPE 1 TAG25) 
	(HLRZ@ 1 1) 
	(HLRZ@ 2 -10 P) 
	(CAMN 2 1) 
	(JRST 0 TAG5) 
TAG25 
TAG3 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG2) 
TAG4 	(MOVE 2 (SPECIAL P2CNT)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG6) 
	(HLRZ@ 1 -10 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG30) 
	(HLRZ@ 1 -10 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG7) 
TAG30 	(JRST 0 TAG10) 
TAG5 	(MOVE 2 -4 P) 
	(MOVE 1 -10 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG33) 
	(MOVEI 2 (QUOTE (QT TAKEN))) 
	(HRRZ@ 1 -4 P) 
	(CALL 2 (E MEMQ)) 
	(JUMPN 1 TAG32) 
TAG33 	(HRRZ@ 1 -4 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG35) 
	(HRRZ@ 1 -4 P) 
	(JRST 0 TAG34) 
TAG35 	(MOVE 1 (SPECIAL P2CNT)) 
TAG36 
TAG34 	(MOVEM 1 -5 P) 
	(MOVE 2 -6 P) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG41) 
	(MOVE 2 -2 P) 
	(MOVE 1 -5 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG41) 
	(MOVE 1 -5 P) 
	(MOVEM 1 -2 P) 
	(MOVE 1 0 P) 
	(MOVEM 1 -1 P) 
TAG41 
TAG32 	(JRST 0 TAG3) 
TAG6 	(MOVE 2 (SPECIAL NACS)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG44) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG43) 
TAG44 	(MOVE 1 -1 P) 
	(CALL 1 (E MINUS)) 
	(MOVE 2 (SPECIAL NACS)) 
	(CALL 2 (E *PLUS)) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 2 (E *PLUS)) 
TAG45 
TAG43 	(JRST 0 TAG7) 
TAG10 	(MOVEI 1 (QUOTE NIL)) 
TAG7 	(SUB P (C 0 0 11 11)) 
	(POPJ P) 
	NIL 

(LAP ILOC1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 2 (E ILOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 (SPECIAL PROGVARS)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPE 1 TAG7) 
	(MOVEI 1 (QUOTE ((QUOTE NIL)))) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 2 (SPECIAL VARLIST)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E ASSOCR)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG11) 
	(HRRZ@ 2 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E ILOC1)) 
	(JRST 0 TAG1) 
TAG11 	(MOVE 2 (SPECIAL CCLST)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG13) 
	(MOVE 2 -1 P) 
	(JUMPN 2 TAG15) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(JRST 0 TAG14) 
TAG15 	(MOVE 2 -1 P) 
TAG16 
TAG14 	(MOVE 1 0 P) 
	(CALL 2 (E LOADCARCDR)) 
	(JRST 0 TAG1) 
TAG13 	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E PRINTMSG)) 
	(MOVEI 1 (QUOTE (LOSTVAR-ILOC1))) 
	(CALL 17 (E COMPERR)) 
	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP LISTNILS SUBR) 
	(PUSH P 1) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG2) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(CALL 1 (E SUB1)) 
	(CALL 1 (E LISTNILS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP LOADARG SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(CALL 1 (E REMOVE)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 -6 P) 
	(JUMPE 1 TAG7) 
	(MOVE 2 1) 
	(MOVE 1 -5 P) 
	(CALL 2 (E ILOC1)) 
	(MOVEM 1 0 P) 
	(MOVE 1 -6 P) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG13) 
	(MOVE 1 0 P) 
	(CALL 1 (E SLOTCONT)) 
TAG13 	(MOVEM 1 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 1 (E DVP)) 
	(MOVEM 1 -3 P) 
	(MOVE 1 -2 P) 
	(CALL 1 (E DVP)) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -6 P) 
	(CAME 1 0 P) 
	(JRST 0 TAG15) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG17) 
	(MOVE 1 -6 P) 
	(CALL 1 (E CPUSH)) 
TAG17 	(JRST 0 TAG7) 
TAG15 	(MOVE 1 0 P) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG21) 
	(MOVE 1 -4 P) 
	(JUMPN 1 TAG21) 
	(MOVE 1 -3 P) 
	(JUMPN 1 TAG21) 
	(MOVE 2 (SPECIAL MINDEPTH)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
TAG21 	(MOVE 1 -4 P) 
	(JUMPN 1 TAG23) 
	(MOVE 1 -1 P) 
	(JUMPE 1 TAG23) 
	(MOVE 1 0 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG23) 
	(MOVE 2 -6 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG1) 
TAG23 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG3) 
	(JRST 0 TAG2) 
TAG1 	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 2 -2 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 3 0 P) 
	(MOVE 2 -6 P) 
	(MOVEI 1 (QUOTE EXCH)) 
	(CALL 3 (E OUT1)) 
	(JRST 0 TAG7) 
TAG2 	(MOVE 1 -6 P) 
	(CALL 1 (E CPUSH)) 
	(MOVE 1 -5 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 0 P) 
TAG3 	(MOVE 1 0 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG5) 
	(HRRZ@ 1 -2 P) 
	(JUMPN 1 TAG27) 
	(MOVEI 2 (QUOTE DUP)) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(JRST 0 TAG26) 
TAG27 	(MOVE 2 -2 P) 
TAG30 
TAG26 	(MOVE 1 -6 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 2 0 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E OUTMOVE)) 
	(JRST 0 TAG7) 
TAG4 	(MOVE 2 -2 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -6 P) 
	(CALL 1 (E OUTPOP)) 
	(JRST 0 TAG7) 
TAG5 	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE QUOTE)) 
	(JRST 0 TAG33) 
	(MOVEI 2 (QUOTE QT)) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(JRST 0 TAG32) 
TAG33 	(HLRZ@ 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
TAG34 
TAG32 	(MOVE 1 -6 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 2 0 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E OUTMOVE)) 
TAG7 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 7 7)) 
	(POPJ P) 
	NIL 

(LAP LOADCARCDR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E CDDR)) 
	(MOVEM 1 0 P) 
	(CALL 2 (E ILOC1)) 
	(CAME 1 -3 P) 
	(JRST 0 TAG10) 
	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
TAG10 	(MOVE 3 0 P) 
	(MOVE 2 -3 P) 
	(HRRZ@ 1 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E CSTEP)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG12) 
	(HLRZ@ 2 -4 P) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL VARLIST)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL VARLIST)) 
	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E LOC)) 
	(JRST 0 TAG4) 
TAG12 	(MOVE 1 -1 P) 
	(CALL 1 (E REVERSE)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 1 (E CPUSH)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -2 P) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG2) 
	(MOVE 1 -3 P) 
	(CAME 1 (SPECIAL VALUEAC)) 
	(JRST 0 TAG16) 
	(MOVE 1 -2 P) 
	(CAME 1 (SPECIAL VALUEAC)) 
	(JRST 0 TAG16) 
	(MOVE 2 -1 P) 
	(MOVEI 1 (QUOTE R)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E REVERSE)) 
	(MOVEI 2 (QUOTE C)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E READLIST)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 2 (E OUTCALL)) 
	(JRST 0 TAG3) 
TAG16 
TAG2 	(MOVEI 2 (QUOTE ((A HLRZ@) (D HRRZ@)))) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E ASSOC)) 
	(MOVE 3 -2 P) 
	(MOVE 2 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 3 (E OUT1)) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 1 -4 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -3 P) 
TAG4 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP LOADCOMP SUBR) 
	(PUSH P 2) 
	(CALL 2 (E COMPEXPR)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E LOADARG)) 
	NIL 

(LAP LOADSUBRARGS SUBR) 
	(PUSH P 1) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG3) 
	(HLRZ@ 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E LOADARG)) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP LOC SUBR) 
	(MOVEI 2 (QUOTE NIL)) 
	(JCALL 2 (E ILOC1)) 
	NIL 

(LAP MARKVAL SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 2 TAG2) 
	(MOVEI 1 (QUOTE (VAL))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEM 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E SETSLOT)) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG6) 
	(MOVE 2 (SPECIAL LDLST)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LDLST)) 
TAG6 	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP NONSPECVARS SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG6) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG6 	(HLRZ@ 1 1) 
	(CALL 1 (E SPECVARP)) 
	(JUMPN 1 TAG5) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG7 
TAG5 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP OUT1 SUBR) 
	(CALL 3 (E TRANSOUT)) 
	(JCALL 1 (E OUTSTAT)) 
	NIL 

(LAP OUTCALLF SUBR) 
	(MOVE 3 2) 
	(EXCH 2 1) 
	(MOVEI 1 (QUOTE CALLF@)) 
	(JCALL 3 (E OUT1)) 
	NIL 

(LAP OUTCJMP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(JUMPE 1 TAG2) 
	(MOVEI 1 (QUOTE JUMPN)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE JUMPE)) 
TAG3 
TAG1 	(POP P 3) 
	(POP P 2) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 3 (E OUTJMP)) 
	NIL 

(LAP OUTENDTAG SUBR) 
	(PUSH P 1) 
	(CALL 1 (E USEDTAGP)) 
	(JUMPE 1 TAG2) 
	(CALL 0 (E CLEARITALL)) 
	(MOVE 1 0 P) 
	(CALL 1 (E RST)) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTSTAT)) 
TAG2 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP OUTCALL SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(CALL 1 (E ISSUBR)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SUBR)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE P)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE PUSHJ)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL UPPERFLG)) 
	(JUMPE 1 TAG3) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE E)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CALL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE XCT)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG3 	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE E)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CALL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
TAG4 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP OUTJCALL SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(CALL 1 (E ISSUBR)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SUBR)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE JRST)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL UPPERFLG)) 
	(JUMPE 1 TAG3) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE E)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE JCALL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE XCT)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG3 	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE E)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE JCALL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
TAG4 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP OUTGOTAB SUBR) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVEI 3 (QUOTE LEVEL)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 3 (E PUTPROP)) 
	(HLRZ@ 1 (SPECIAL LASTOUT)) 
	(HLRZ@ 1 1) 
	(CAIN 1 (QUOTE JRST)) 
	(JRST 0 TAG6) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTJRST)) 
TAG6 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E OUTSTAT)) 
TAG1 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG10) 
	(MOVEI 1 (QUOTE (PUSHJ P *UDT))) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG3) 
TAG10 	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE QUOTE)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 (SPECIAL GOTABAC)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CAIN)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(HLRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E OUTJRST)) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP OUTJMP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 0 (E SAVEACS)) 
	(PUSH P 1) 
	(CALL 0 (E CLEARBOTH)) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 1 (E RST)) 
	(PUSH P 1) 
	(MOVEI 3 (QUOTE USED)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVE 1 -4 P) 
	(CALL 3 (E PUTPROP)) 
	(PUSH P 1) 
	(EXCH 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -6 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -7 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(PUSH P 1) 
	(MOVNI 6 5) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP OUTJRST SUBR) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE JRST)) 
	(JCALL 3 (E OUTJMP)) 
	NIL 

(LAP OUTMOVE SUBR) 
	(MOVE 3 2) 
	(EXCH 2 1) 
	(MOVEI 1 (QUOTE MOVE)) 
	(JCALL 3 (E OUT1)) 
	NIL 

(LAP OUTMOVEM SUBR) 
	(MOVE 3 2) 
	(EXCH 2 1) 
	(MOVEI 1 (QUOTE MOVEM)) 
	(JCALL 3 (E OUT1)) 
	NIL 

(LAP OUTPOP SUBR) 
	(PUSH P 1) 
	(CALL 0 (E SLOTPOP)) 
	(POP P 3) 
	(MOVEI 2 (QUOTE P)) 
	(MOVEI 1 (QUOTE POP)) 
	(JCALL 3 (E OUT1)) 
	NIL 

(LAP OUTPUSH SUBR) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE P)) 
	(MOVEI 1 (QUOTE PUSH)) 
	(JCALL 3 (E OUT1)) 
	NIL 

(LAP OUTPUTSTAT SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 -1 P) 
	(CAIN 1 (QUOTE LAP)) 
	(JRST 0 TAG1) 
	(MOVE 1 (SPECIAL CODESIZE)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL CODESIZE)) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG10) 
	(HLRZ@ 1 0 P) 
	(CAIE 1 (QUOTE C)) 
	(JRST 0 TAG10) 
	(MOVE 1 (SPECIAL CONSTSIZE)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL CONSTSIZE)) 
TAG10 
TAG1 	(MOVE 1 -1 P) 
	(CALL 1 (E PRINTSTAT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP OUTSTAT SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 (SPECIAL LASTOUT)) 
	(JUMPE 1 TAG2) 
	(HLRZ@ 1 1) 
	(CALL 1 (E OUTPUTSTAT)) 
	(CALL 0 (E CURCOL)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 (SPECIAL LASTOUT)) 
	(MOVEM 1 -1 P) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(CALL 1 (E TABTO)) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E PRINTEXPR)) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(CALL 0 (E LAPNOTES)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVEM 1 (SPECIAL LASTOUT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP P2*EVAL SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE CONS)) 
	(JRST 0 TAG6) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CAIE 1 (QUOTE QUOTE)) 
	(JRST 0 TAG6) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CADAR)) 
	(MOVEI 2 (QUOTE (FEXPR FSUBR *FSUBR))) 
	(MOVEM 1 0 P) 
	(CALL 2 (E GETL)) 
	(JUMPN 1 TAG1) 
TAG6 	(MOVE 3 -3 P) 
	(MOVE 2 -4 P) 
	(MOVE 1 -5 P) 
	(CALL 3 (E CALLSUBR)) 
	(JRST 0 TAG2) 
TAG1 	(MOVE 2 (SPECIAL VALUEAC)) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 1 0 P) 
	(CALL 1 (E PROTECTACS)) 
	(MOVE 1 -4 P) 
	(JUMPN 1 TAG7) 
	(TDZA 1 1) 
TAG7 	(MOVEI 1 (QUOTE T)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(CALL 2 (E MARKVAL)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE E)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE 17)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE CALL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 -1 P) 
TAG2 	(SUB P (C 0 0 6 6)) 
	(POPJ P) 
	NIL 

(LAP P2ARG SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E COMPEXPR)) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(CAIE 1 (QUOTE QT)) 
	(JRST 0 TAG5) 
	(MOVE 1 -1 P) 
	(CALL 1 (E CPUSH)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E ADD1)) 
	(CALL 1 (E MINUS)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E OUTMOVE)) 
	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(HLRZ@ 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE HRRZ)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 -1 P) 
	(JUMPN 1 TAG6) 
	(TDZA 1 1) 
TAG6 	(MOVEI 1 (QUOTE T)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E MARKVAL)) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E LOADARG)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E ADD1)) 
	(CALL 1 (E MINUS)) 
	(MOVE 3 1) 
	(MOVE 2 -1 P) 
	(MOVEI 1 (QUOTE ADD)) 
	(CALL 3 (E OUT1)) 
	(MOVE 1 (SPECIAL INUM0)) 
	(CALL 1 (E MINUS)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE HRRZ)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 -1 P) 
	(JUMPN 1 TAG7) 
	(TDZA 1 1) 
TAG7 	(MOVEI 1 (QUOTE T)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E MARKVAL)) 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP P2CARCDR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HRRZ@ 1 1) 
	(CALL 1 (E LENGTH)) 
	(CAIN 1 (QUOTE 1)) 
	(JRST 0 TAG5) 
	(MOVEI 1 (QUOTE (ARGNOERR-P2CARCDR))) 
	(CALL 17 (E USERERR)) 
TAG5 	(MOVE 1 -3 P) 
	(JUMPN 1 TAG7) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG7) 
	(HRRZ@ 1 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPSTAT)) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 -3 P) 
	(JUMPN 1 TAG12) 
	(CALL 0 (E FREEAC)) 
	(JRST 0 TAG11) 
TAG12 	(MOVE 1 -3 P) 
TAG13 
TAG11 	(MOVEM 1 -1 P) 
	(CALL 0 (E GENSYM)) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 -4 P) 
	(MOVE 2 -1 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -5 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E COMPEXPR)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 (SPECIAL CCLST)) 
	(MOVEM 1 -4 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL CCLST)) 
	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVEM 1 0 P) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG16) 
	(MOVE 2 (SPECIAL LDLST)) 
	(MOVE 1 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LDLST)) 
TAG16 	(MOVE 2 -2 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E TESTJUMP)) 
TAG1 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP P2COND SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL CTAG)) 
	(0 0 (SPECIAL RSL)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 0 (E CLRLOCS)) 
	(CALL 0 (E CLEAR1)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 -3 P) 
	(JUMPN 1 TAG4) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG4) 
	(TDZA 1 1) 
TAG4 	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(JUMPN 1 TAG7) 
	(CALL 0 (E FREEAC)) 
	(JRST 0 TAG6) 
TAG7 	(MOVE 1 -3 P) 
TAG10 
TAG6 	(MOVE 4 (SPECIAL MINDEPTH)) 
	(MOVE 3 1) 
	(MOVE 2 -1 P) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -4 P) 
	(CALL 4 (E P2COND1)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MARKVAL)) 
	(SUB P (C 0 0 5 5)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP P2COND1 SUBR) 
	(JSP 6 SPECBIND) 
	(0 4 (SPECIAL MINDEPTH)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 (SPECIAL MINDEPTH)) 
	(MOVEI 3 (QUOTE LEVEL)) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 3 (E PUTPROP)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(CLEARM 1 (SPECIAL RSL)) 
	(MOVE 1 -14 P) 
	(JUMPN 1 TAG13) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG15) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVE 1 -12 P) 
	(CALL 2 (E LOADARG)) 
TAG15 	(MOVE 1 -11 P) 
	(CALL 1 (E OUTENDTAG)) 
	(MOVE 1 0 P) 
	(CALL 1 (E USEDTAGP)) 
	(JUMPE 1 TAG17) 
	(CALL 0 (E CLEARITALL)) 
TAG17 	(MOVE 1 -10 P) 
	(CALL 1 (E RESTORE)) 
	(JRST 0 TAG10) 
TAG13 	(HLRZ@ 1 -14 P) 
	(MOVEM 1 -5 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG21) 
	(MOVE 2 -12 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 2 (E LOADCOMP)) 
	(HRRZ@ 1 -14 P) 
	(JUMPE 1 TAG23) 
	(MOVE 3 -11 P) 
	(MOVE 2 -12 P) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 3 (E OUTCJMP)) 
	(JRST 0 TAG22) 
TAG23 	(MOVE 1 -10 P) 
	(CALL 1 (E RESTORE)) 
TAG24 
TAG22 	(JRST 0 TAG5) 
TAG21 	(MOVEI 2 (QUOTE ((QUOTE NIL)))) 
	(HRRZ@ 1 -5 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG27) 
	(HLRZ@ 1 -5 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE NULL)) 
	(JRST 0 TAG27) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG31) 
	(MOVEI 2 (QUOTE BOOL)) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E CAADR)) 
	(CALL 2 (E HASPROP)) 
	(JUMPN 1 TAG27) 
TAG31 	(MOVE 2 -12 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 3 -11 P) 
	(MOVE 2 -12 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 3 (E OUTCJMP)) 
	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG6) 
TAG27 	(MOVE 1 (SPECIAL LDLST)) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 1 -5 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 1 -5 P) 
	(CALL 1 (E CAAR)) 
	(CAIE 1 (QUOTE GO)) 
	(JRST 0 TAG35) 
	(HRRZ@ 1 -5 P) 
	(CALL 1 (E CADAR)) 
	(MOVEM 1 -6 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG35) 
	(HLRZ@ 1 -5 P) 
	(PUSH P 1) 
	(MOVE 1 -7 P) 
	(CALL 1 (E EQUIVTAG)) 
	(MOVEI 2 (QUOTE T)) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPPRED)) 
	(JRST 0 TAG5) 
TAG35 	(MOVEI 2 (QUOTE (RETURN (QUOTE NIL)))) 
	(HRRZ@ 1 -5 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG40) 
	(MOVE 2 (SPECIAL EXITN)) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(HLRZ@ 1 -5 P) 
	(CALL 2 (E COMPPRED)) 
	(JRST 0 TAG5) 
TAG40 
TAG2 	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEM 1 (SPECIAL CTAG)) 
	(MOVEI 3 (QUOTE LEVEL)) 
	(MOVE 2 -10 P) 
	(MOVEM 1 0 P) 
	(CALL 3 (E PUTPROP)) 
	(CLEARM 1 (SPECIAL RSL)) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(HLRZ@ 1 -5 P) 
	(CALL 2 (E COMPPRED)) 
	(MOVE 1 (SPECIAL RSL)) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG42) 
	(MOVE 1 (SPECIAL RSL)) 
	(JRST 0 TAG41) 
TAG42 	(MOVE 1 (SPECIAL ACS)) 
	(CALL 1 (E TOPCOPY)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG43 
TAG41 	(MOVEM 1 -2 P) 
	(MOVE 1 (SPECIAL CCLST)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -5 P) 
	(MOVEM 1 -7 P) 
TAG3 	(HRRZ@ 1 -7 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 -7 P) 
	(CALL 1 (E COMPSTAT)) 
	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG3) 
TAG4 	(MOVE 1 -13 P) 
	(JUMPN 1 TAG47) 
	(HLRZ@ 1 -7 P) 
	(CALL 1 (E COMPSTAT)) 
	(JRST 0 TAG46) 
TAG47 	(MOVE 2 -12 P) 
	(HLRZ@ 1 -7 P) 
	(CALL 2 (E LOADCOMP)) 
TAG50 
TAG46 	(CALL 0 (E SAVEACS)) 
	(MOVE 1 -1 P) 
	(MOVEM 1 (SPECIAL CCLST)) 
	(MOVE 1 (SPECIAL ACS)) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 1 -2 P) 
	(MOVEM 1 (SPECIAL ACS)) 
	(MOVE 1 -12 P) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(CALL 2 (E EQUAL)) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -1 P) 
	(MOVEM 1 (SPECIAL ACS)) 
	(CLEARM 1 -3 P) 
	(MOVEI 2 (QUOTE (GO RETURN))) 
	(HLRZ@ 1 -7 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E MEMQ)) 
	(JUMPN 1 TAG53) 
	(HRRZ@ 1 -14 P) 
	(JUMPN 1 TAG56) 
	(MOVE 1 -13 P) 
	(JUMPE 1 TAG55) 
	(MOVE 1 -4 P) 
	(JUMPN 1 TAG55) 
	(MOVE 1 0 P) 
	(CALL 1 (E USEDTAGP)) 
	(MOVEM 1 -3 P) 
	(JUMPE 1 TAG55) 
TAG56 	(MOVE 1 -11 P) 
	(CALL 1 (E OUTJRST)) 
	(JRST 0 TAG54) 
TAG55 	(MOVE 1 -10 P) 
	(CALL 1 (E RESTORE)) 
TAG60 
TAG54 
TAG53 	(HLRZ@ 1 -2 P) 
	(MOVEM 1 (SPECIAL ACS)) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(MOVEM 1 (SPECIAL PDL)) 
	(CALL 1 (E LENGTH)) 
	(MOVEM 1 (SPECIAL PDLDEPTH)) 
	(MOVE 1 0 P) 
	(CALL 1 (E USEDTAGP)) 
	(JUMPE 1 TAG63) 
	(MOVE 1 0 P) 
	(CALL 1 (E OUTSTAT)) 
TAG63 	(JRST 0 TAG6) 
TAG5 	(CLEARM 1 -3 P) 
TAG6 	(HRRZ@ 1 -14 P) 
	(MOVEM 1 -14 P) 
	(JRST 0 TAG1) 
TAG10 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 15 15)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP P2GO SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPN 2 TAG6) 
	(JUMPE 3 TAG5) 
TAG6 	(MOVEI 1 (QUOTE (GO FOR VALUE OR TEST P2GO))) 
	(CALL 17 (E USERERR)) 
TAG5 	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(CALL 0 (E SAVEACS)) 
	(CALL 0 (E CLRPVARS)) 
	(MOVE 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG10) 
	(MOVE 1 0 P) 
	(CALL 1 (E EQUIVTAG)) 
	(CALL 1 (E OUTJRST)) 
	(JRST 0 TAG7) 
TAG10 	(MOVE 2 (SPECIAL GOTABAC)) 
	(MOVE 1 0 P) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 1 (SPECIAL VGO)) 
	(CALL 1 (E OUTJRST)) 
TAG11 
TAG7 	(MOVE 1 -2 P) 
	(JUMPN 1 TAG13) 
	(TDZA 1 1) 
TAG13 	(MOVEI 1 (QUOTE T)) 
	(MOVE 2 (SPECIAL VALUEAC)) 
	(SUB P (C 0 0 4 4)) 
	(JCALL 2 (E MARKVAL)) 
	NIL 

(LAP P2PROG SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL PVR)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 2 TAG10) 
	(MOVE 1 2) 
	(JRST 0 TAG7) 
TAG10 	(JUMPE 3 TAG11) 
	(CALL 0 (E FREEAC)) 
	(JRST 0 TAG7) 
TAG11 	(MOVEI 1 (QUOTE NIL)) 
TAG12 
TAG7 	(MOVEM 1 (SPECIAL PVR)) 
	(MOVEI 2 (QUOTE NIL)) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E SPECBIND)) 
	(CLEARM 1 (SPECIAL PRGSPFLG)) 
	(MOVEM 1 0 P) 
	(CALL 0 (E CLEAR1)) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL GOLIST)) 
	(0 0 (SPECIAL EXIT)) 
	(0 0 (SPECIAL EXITN)) 
	(0 0 (SPECIAL PRSSL)) 
	(0 0 (SPECIAL PROGSW)) 
	(0 0 (SPECIAL VGO)) 
	(CALL 0 (E CLRLOCS)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 (SPECIAL PROGSW)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEM 1 (SPECIAL EXIT)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEM 1 (SPECIAL EXITN)) 
	(MOVEI 1 (QUOTE (TAG))) 
	(CALL 17 (E NEXTSYM)) 
	(MOVEM 1 (SPECIAL VGO)) 
	(MOVE 2 (SPECIAL EXIT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL EXITN)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL VGO)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E CONS)) 
	(HRRZ@ 2 -5 P) 
	(HLRZ@ 2 2) 
	(CALL 2 (E CONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEM 1 (SPECIAL GOLIST)) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E NONSPECVARS)) 
	(MOVEM 1 (SPECIAL PROGVARS)) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CDDR)) 
	(MOVEM 1 -3 P) 
TAG1 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 1 (SPECIAL PROGSW)) 
	(JUMPN 1 TAG21) 
	(MOVE 1 (SPECIAL PRSSL)) 
	(CALL 1 (E RESTORE)) 
TAG21 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG23) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E PROGTAG)) 
	(JRST 0 TAG22) 
TAG23 	(HRRZ@ 1 -3 P) 
	(JUMPN 1 TAG24) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CAIE 1 (QUOTE RETURN)) 
	(JRST 0 TAG24) 
	(MOVEI 2 (QUOTE ((QUOTE NIL)))) 
	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG2) 
	(MOVE 2 (SPECIAL PVR)) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 1 (SPECIAL EXITN)) 
	(CALL 1 (E USEDTAGP)) 
	(JUMPE 1 TAG32) 
	(MOVE 1 (SPECIAL EXIT)) 
	(CALL 1 (E OUTJRST)) 
	(JRST 0 TAG2) 
TAG32 	(JRST 0 TAG3) 
TAG27 	(JRST 0 TAG22) 
TAG24 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E COMPSTAT)) 
TAG34 
TAG22 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 (SPECIAL EXITN)) 
	(CALL 1 (E OUTENDTAG)) 
	(HLRZ@ 1 (SPECIAL LASTOUT)) 
	(HLRZ@ 1 1) 
	(CAIN 1 (QUOTE JRST)) 
	(JRST 0 TAG37) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVE 1 (SPECIAL PVR)) 
	(CALL 2 (E LOADARG)) 
TAG37 
TAG3 	(MOVE 1 (SPECIAL EXIT)) 
	(CALL 1 (E OUTENDTAG)) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 1 (SPECIAL VGO)) 
	(CALL 1 (E USEDTAGP)) 
	(JUMPE 1 TAG41) 
	(HRRZ@ 2 (SPECIAL GOLIST)) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(MOVE 1 (SPECIAL VGO)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E OUTGOTAB)) 
TAG41 	(MOVEI 1 (QUOTE NIL)) 
	(PUSHJ P SPECSTR) 
	(MOVE 1 0 P) 
	(JUMPE 1 TAG43) 
	(MOVEI 1 (QUOTE (PUSHJ P SPECSTR))) 
	(CALL 1 (E OUTSTAT)) 
TAG43 	(MOVE 1 (SPECIAL PVR)) 
	(JUMPN 1 TAG44) 
	(TDZA 1 1) 
TAG44 	(MOVEI 1 (QUOTE T)) 
	(MOVE 2 (SPECIAL PVR)) 
	(CALL 2 (E MARKVAL)) 
	(SUB P (C 0 0 4 4)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP P2PROG2 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E LENGTH)) 
	(MOVEI 2 (QUOTE 2)) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE (TOFEWARGS-P2PROG2))) 
	(CALL 17 (E USERERR)) 
TAG6 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E COMPSTAT)) 
	(HRRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG10) 
	(MOVE 3 -2 P) 
	(MOVE 2 -3 P) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E COMPFORM)) 
	(JRST 0 TAG2) 
TAG10 	(MOVE 1 -3 P) 
	(JUMPN 1 TAG13) 
	(MOVE 1 -2 P) 
	(JUMPE 1 TAG12) 
TAG13 	(MOVE 2 -3 P) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG11) 
TAG12 	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPSTAT)) 
TAG14 
TAG11 	(HRRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG17) 
	(MOVE 2 -2 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E TESTJUMP)) 
	(JRST 0 TAG2) 
TAG17 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E COMPSTAT)) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP P2PROGN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HRRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG3) 
TAG1 	(HRRZ@ 1 0 P) 
	(JUMPN 1 TAG7) 
	(MOVE 3 -1 P) 
	(MOVE 2 -2 P) 
	(HLRZ@ 1 0 P) 
	(CALL 3 (E COMPFORM)) 
	(JRST 0 TAG2) 
TAG7 	(HLRZ@ 1 0 P) 
	(CALL 1 (E COMPSTAT)) 
	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP P2QUOTE SUBR) 
	(PUSH P 1) 
	(PUSH P 3) 
	(JUMPE 3 TAG2) 
	(HLRZ@ 1 3) 
	(JUMPE 1 TAG4) 
	(HRRZ@ 2 -1 P) 
	(HLRZ@ 2 2) 
	(JRST 0 TAG3) 
TAG4 	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(JUMPE 1 TAG7) 
	(TDZA 2 2) 
TAG7 	(MOVEI 2 (QUOTE T)) 
TAG5 
TAG3 	(MOVEI 4 (QUOTE NIL)) 
	(HRRZ@ 3 0 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 4 (E BOOLARGS)) 
TAG2 	(MOVEI 2 (QUOTE QT)) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 2 (E CONS)) 
	NIL 

(LAP P2RETURN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(JUMPN 2 TAG3) 
	(JUMPE 3 TAG2) 
TAG3 	(MOVEI 1 (QUOTE (RETURN FOR VALUE OR TEST P2RETURN))) 
	(CALL 17 (E USERERR)) 
	(JRST 0 TAG1) 
TAG2 	(CALL 0 (E SAVEACS)) 
	(CALL 0 (E CLRPVARS)) 
	(MOVEI 2 (QUOTE (QUOTE NIL))) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG7) 
	(MOVE 1 (SPECIAL EXITN)) 
	(CALL 1 (E OUTJRST)) 
	(JRST 0 TAG6) 
TAG7 	(MOVE 2 (SPECIAL PVR)) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 1 (SPECIAL EXIT)) 
	(CALL 1 (E OUTJRST)) 
TAG10 
TAG6 
TAG4 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP P2RPLAC SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E CADR)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVE 2 -2 P) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E ILOC1)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LOC)) 
	(CALL 0 (E CLEARBOTH)) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVE 1 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG5) 
	(MOVEI 2 (QUOTE ((RPLACA HRRZS@) (RPLACD HLLZS@)))) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E ASSOC)) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E LOC)) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 0)) 
	(POP P 1) 
	(CALL 3 (E OUT1)) 
	(JRST 0 TAG4) 
TAG5 	(MOVEI 2 (QUOTE ((RPLACA HRLM@) (RPLACD HRRM@)))) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E ASSOC)) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E PUTINAC)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E LOC)) 
	(MOVE 3 1) 
	(POP P 2) 
	(POP P 1) 
	(CALL 3 (E OUT1)) 
TAG6 
TAG4 	(MOVE 1 -1 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG11) 
	(MOVE 1 0 P) 
	(CALL 1 (E REMOVE)) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP P2SETARG SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E CADDR)) 
	(CALL 2 (E COMPEXPR)) 
	(PUSH P 1) 
	(CALL 1 (E LOC)) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(CAIE 1 (QUOTE QUOTE)) 
	(JRST 0 TAG5) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E ADD1)) 
	(CALL 1 (E MINUS)) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 2)) 
	(MOVEI 1 (QUOTE MOVE)) 
	(CALL 3 (E OUT1)) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E PUTINAC)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E NCONS)) 
	(HRRZ@ 2 -3 P) 
	(HLRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE HRRM)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG5 	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPEXPR)) 
	(MOVEI 2 (QUOTE 2)) 
	(CALL 2 (E LOADCOMP)) 
	(CALL 0 (E CLEARACS)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E ADD1)) 
	(CALL 1 (E MINUS)) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 2)) 
	(MOVEI 1 (QUOTE ADD)) 
	(CALL 3 (E OUT1)) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E PUTINAC)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL INUM0)) 
	(CALL 1 (E MINUS)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE HRRM)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP P2SETQ SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPN 2 TAG6) 
	(CALL 0 (E FREEAC)) 
	(JRST 0 TAG5) 
TAG6 	(MOVE 1 -10 P) 
TAG7 
TAG5 	(MOVEM 1 -6 P) 
	(HRRZ@ 1 -11 P) 
	(HLRZ@ 1 1) 
	(MOVE 2 -6 P) 
	(MOVEM 1 -3 P) 
	(HRRZ@ 1 -11 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E COMPEXPR)) 
	(MOVE 2 -6 P) 
	(MOVEM 1 -4 P) 
	(CALL 2 (E ILOC1)) 
	(MOVE 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG12) 
	(MOVE 2 (SPECIAL LDLST)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 -5 P) 
	(JUMPE 1 TAG12) 
	(MOVE 1 -5 P) 
	(CALL 1 (E CLRSPVAR)) 
TAG12 	(MOVE 1 -4 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 -3 P) 
	(CALL 1 (E FREEZE)) 
	(MOVE 1 -4 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG15) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG14) 
TAG15 	(MOVE 2 (SPECIAL P2CNT)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -6 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E ILOC)) 
	(JUMPE 1 TAG14) 
	(MOVE 1 0 P) 
	(CALL 1 (E LOC)) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG20) 
	(TDZA 1 1) 
TAG20 	(MOVEI 1 (QUOTE T)) 
TAG16 
TAG14 	(MOVEM 1 -2 P) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 1 -10 P) 
	(JUMPN 1 TAG22) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG22) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG25) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG25) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E SETSLOT)) 
	(JRST 0 TAG1) 
TAG25 	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E SLOTPUSH)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E OUTPUSH)) 
	(JRST 0 TAG1) 
TAG27 
TAG22 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG32) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVE 1 -4 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG32) 
	(MOVE 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG35) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG34) 
TAG35 	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E SUB1)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -6 P) 
	(CALL 2 (E ILOC)) 
TAG36 
TAG34 	(MOVEM 1 -4 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG41) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -4 P) 
	(CALL 2 (E SETSLOT)) 
TAG41 	(MOVE 1 -10 P) 
	(JUMPE 1 TAG44) 
	(MOVE 1 -6 P) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG43) 
TAG44 	(MOVE 3 -4 P) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE CLEARM)) 
	(CALL 3 (E OUT1)) 
	(JRST 0 TAG42) 
TAG43 	(MOVEI 2 (QUOTE DUP)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 -6 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 3 -4 P) 
	(MOVE 2 -6 P) 
	(MOVEI 1 (QUOTE CLEARB)) 
	(CALL 3 (E OUT1)) 
TAG45 
TAG42 	(JRST 0 TAG1) 
TAG32 	(MOVE 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG51) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG51) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG50) 
TAG51 	(MOVE 2 -4 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E LOADARG)) 
	(MOVE 1 -6 P) 
	(MOVEM 1 -1 P) 
TAG50 	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG53) 
	(MOVE 1 -1 P) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG55) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTPOP)) 
	(JRST 0 TAG54) 
TAG55 	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E OUTMOVEM)) 
TAG56 
TAG54 
TAG53 
TAG1 	(MOVE 3 -7 P) 
	(MOVE 2 -10 P) 
	(MOVE 1 -3 P) 
	(SUB P (C 0 0 12 12)) 
	(JCALL 3 (E COMPFORM)) 
	NIL 

(LAP P2STORE SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E CADDR)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P 1) 
	(JUMPN 2 TAG5) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(JRST 0 TAG4) 
TAG5 	(MOVE 2 -2 P) 
TAG6 
TAG4 	(POP P 1) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E LOC)) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E COMPSTAT)) 
	(MOVE 2 0 P) 
	(MOVE 1 (SPECIAL ARRAYAC)) 
	(CALL 2 (E LOADARG)) 
	(MOVEI 1 (QUOTE (PUSHJ P NSTR))) 
	(CALL 1 (E OUTSTAT)) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP PASS2 SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL ACS)) 
	(0 0 (SPECIAL PDL)) 
	(0 0 (SPECIAL PDLDEPTH)) 
	(0 0 (SPECIAL MINDEPTH)) 
	(0 0 (SPECIAL LDLST)) 
	(0 0 (SPECIAL PRGSPFLG)) 
	(0 0 (SPECIAL CCLST)) 
	(0 0 (SPECIAL VARLIST)) 
	(0 0 (SPECIAL PROGVARS)) 
	(0 0 (SPECIAL PROGSW)) 
	(0 0 (SPECIAL GOLIST)) 
	(0 0 (SPECIAL CTAG)) 
	(0 0 (SPECIAL RSL)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 1 (SPECIAL NACS)) 
	(CALL 1 (E LISTNILS)) 
	(MOVEM 1 (SPECIAL ACS)) 
	(MOVE 2 (SPECIAL NACS)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 2 (E LSH)) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 (SPECIAL ALLACS)) 
	(CLEARM 1 (SPECIAL PDL)) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E LENGTH)) 
	(MOVEM 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 (SPECIAL MINDEPTH)) 
	(HRRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E BINDARGS)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPN 1 TAG5) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG5 	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE LAP)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(HLRZ@ 1 -2 P) 
	(CAIE 1 (QUOTE FSUBR)) 
	(JRST 0 TAG7) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CDAR)) 
	(JUMPE 1 TAG11) 
	(MOVEI 1 (QUOTE (PUSHJ P *AMAKE))) 
	(CALL 1 (E OUTSTAT)) 
TAG11 	(JRST 0 TAG6) 
TAG7 	(HLRZ@ 1 -2 P) 
	(CAIE 1 (QUOTE LSUBR)) 
	(JRST 0 TAG12) 
	(MOVEI 1 (QUOTE (JSP 3 *LCALL))) 
	(CALL 1 (E OUTSTAT)) 
	(MOVEI 3 (QUOTE P2ARG)) 
	(MOVEI 2 (QUOTE P2)) 
	(MOVEI 1 (QUOTE ARG)) 
	(CALL 3 (E INITPROP)) 
TAG12 
TAG6 	(MOVEI 2 (QUOTE T)) 
	(HRRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E SPECBIND)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CAADR)) 
	(CAIN 1 (QUOTE PROG)) 
	(JRST 0 TAG14) 
	(CLEARM 1 (SPECIAL PRGSPFLG)) 
TAG14 	(MOVE 2 (SPECIAL VALUEAC)) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E LOADCOMP)) 
	(MOVE 1 0 P) 
	(CALL 1 (E EXITBUM)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E OUTSTAT)) 
	(CALL 1 (E OUTSTAT)) 
	(HLRZ@ 1 -2 P) 
	(CAIE 1 (QUOTE LSUBR)) 
	(JRST 0 TAG16) 
	(MOVEI 2 (QUOTE P2)) 
	(MOVEI 1 (QUOTE ARG)) 
	(CALL 2 (E DELETEPROP)) 
TAG16 	(MOVE 1 (SPECIAL LDLST)) 
	(JUMPE 1 TAG20) 
	(MOVEI 1 (QUOTE (LDLSTLEFT-PASS2))) 
	(CALL 17 (E COMPERR)) 
TAG20 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 4 4)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP PASS2LAMBDA SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 1 (E CADDAR)) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(HRRZ@ 1 -4 P) 
	(CALL 1 (E COMPARGS)) 
	(CALL 1 (E REVERSE)) 
	(PUSH P (SPECIAL P2CNT)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -6 P) 
	(JUMPE 1 TAG2) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E REMOVE)) 
	(HLRZ@ 1 -6 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG12) 
	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 -6 P) 
	(CALL 1 (E FREEZE)) 
	(HLRZ@ 1 -4 P) 
	(PUSH P 1) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E PUTINAC)) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG11) 
TAG12 	(MOVE 1 -2 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG14) 
	(MOVE 1 -2 P) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEM 1 -3 P) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG13) 
TAG14 	(MOVE 1 -3 P) 
	(CALL 1 (E SLOTPUSH)) 
	(HRRZ@ 1 -3 P) 
	(JUMPN 1 TAG16) 
	(MOVEI 2 (QUOTE DUP)) 
	(HLRZ@ 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E SETSLOT)) 
TAG16 	(MOVE 1 -2 P) 
	(CALL 1 (E OUTPUSH)) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 -2 P) 
TAG13 
TAG11 	(MOVEI 2 (QUOTE TAKEN)) 
	(HLRZ@ 1 -6 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E SETSLOT)) 
	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(HRRZ@ 1 -6 P) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(JUMPE 1 TAG20) 
	(MOVEI 1 (QUOTE (JSP 6 SPECBIND))) 
	(CALL 1 (E OUTSTAT)) 
TAG20 	(HLRZ@ 1 -12 P) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 -6 P) 
TAG3 	(MOVE 1 -6 P) 
	(JUMPE 1 TAG4) 
	(MOVEI 2 (QUOTE TAKEN)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E ILOC)) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 -6 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG23) 
	(HLRZ@ 1 -6 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
TAG23 	(MOVE 1 -2 P) 
	(CALL 1 (E SLOTCONT)) 
	(HLLZS@ 0 1) 
	(HRRZ@ 1 -6 P) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG3) 
TAG4 	(MOVE 2 -11 P) 
	(MOVE 1 -7 P) 
	(CALL 2 (E COMPEXPR)) 
	(MOVEM 1 -3 P) 
	(CALL 1 (E LOC)) 
	(MOVEM 1 -2 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG25) 
	(MOVE 2 -2 P) 
	(JRST 0 TAG24) 
TAG25 	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E PUTINAC)) 
	(MOVE 2 1) 
TAG26 
TAG24 	(MOVE 1 -11 P) 
	(CALL 2 (E MARKVAL)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 0 P) 
	(JUMPE 1 TAG31) 
	(MOVEI 1 (QUOTE (PUSHJ P SPECSTR))) 
	(CALL 1 (E OUTSTAT)) 
TAG31 	(MOVE 1 (SPECIAL P2CNT)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL P2CNT)) 
	(MOVE 2 -5 P) 
	(HLRZ@ 1 -12 P) 
	(CALL 1 (E CADR)) 
	(CALL 2 (E CLRTRASH)) 
	(MOVE 2 -10 P) 
	(MOVE 1 -1 P) 
	(SUB P (C 0 0 13 13)) 
	(JCALL 2 (E TESTJUMP)) 
	NIL 

(LAP PROGTAG SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 0 (E CLEARBOTH)) 
	(PUSH P 1) 
	(CALL 0 (E CLEARACS)) 
	(PUSH P 1) 
	(CALL 0 (E CLRPVARS)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PRSSL)) 
	(CALL 1 (E RESTORE)) 
	(PUSH P 1) 
	(EXCH 1 -5 P) 
	(CALL 1 (E EQUIVTAG)) 
	(CALL 1 (E OUTSTAT)) 
	(PUSH P 1) 
	(MOVNI 6 5) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP PROTECTACS SUBR) 
	(PUSH P 1) 
	(CALL 1 (E ACEFFECTS)) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(PUSH P 1) 
TAG1 	(MOVE 1 -1 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG3) 
	(PUSH P (C 0 0 TAG7 0)) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P 1) 
	(MOVNI 6 3) 
	(JCALL 16 (E BOOLE)) 
TAG7 	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG6) 
	(MOVE 1 -1 P) 
	(CALL 1 (E CLEARAC)) 
TAG6 	(MOVEI 2 (QUOTE -1)) 
	(MOVE 1 0 P) 
	(CALL 2 (E LSH)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP PUTINAC SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E LOC)) 
	(PUSH P 1) 
	(CALL 1 (E ACNUMP)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 -1 P) 
	(MOVE 2 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E LOADARG)) 
TAG5 	(MOVE 1 -2 P) 
	(CALL 1 (E REMOVE)) 
	(MOVE 1 0 P) 
	(CALL 1 (E CPUSH)) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP REMOVE SUBR) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE VALUE)) 
	(MOVEI 1 (QUOTE LDLST)) 
	(CALL 2 (E GET)) 
	(PUSH P 1) 
TAG1 	(HRRZ@ 1 0 P) 
	(JUMPE 1 TAG3) 
	(MOVE 2 -1 P) 
	(HRRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG7) 
	(HRRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(HRRM@ 1 0 P) 
	(JRST 0 TAG6) 
TAG7 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
TAG10 
TAG6 	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP RESTORE SUBR) 
	(PUSH P 1) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 2 (SPECIAL PDLDEPTH)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG13) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -6 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINTMSG)) 
	(MOVEI 1 (QUOTE (PDLSHORT-RESTORE))) 
	(CALL 17 (E COMPERR)) 
TAG13 
TAG1 	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 0 P) 
TAG2 	(MOVE 2 (SPECIAL PDLDEPTH)) 
	(MOVE 1 -5 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG15) 
	(MOVE 1 0 P) 
	(CALL 1 (E SHRINKPDL)) 
	(JRST 0 TAG7) 
TAG15 	(HLRZ@ 1 (SPECIAL PDL)) 
	(MOVEM 1 -2 P) 
	(CALL 1 (E DVP)) 
	(JUMPN 1 TAG3) 
	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(CALL 0 (E SLOTPOP)) 
	(JRST 0 TAG2) 
TAG3 	(MOVE 1 0 P) 
	(CALL 1 (E SHRINKPDL)) 
TAG4 	(MOVE 1 -6 P) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVE 2 -5 P) 
	(MOVEM 1 0 P) 
	(MOVE 1 (SPECIAL PDLDEPTH+i 
	(CALL 2 (E *DIF)) 
	(MOVEM 1 -4 P) 
TAG5 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG17) 
	(CALL 0 (E FINDFREEAC)) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG21) 
	(MOVEI 1 (QUOTE (NOAC-RESTORE))) 
	(CALL 17 (E COMPERR)) 
TAG21 	(MOVE 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E OUTPOP)) 
	(JRST 0 TAG1) 
TAG17 	(HLRZ@ 1 1) 
	(JUMPE 1 TAG22) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 2 -1 P) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG22) 
	(MOVE 2 -4 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E MINUS)) 
	(MOVEM 1 -3 P) 
	(CALL 1 (E SLOTCONT)) 
	(CALL 1 (E DVP)) 
	(JUMPE 1 TAG6) 
TAG22 	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG5) 
TAG6 	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -3 P) 
	(CALL 1 (E OUTPOP)) 
	(JRST 0 TAG1) 
TAG7 	(SUB P (C 0 0 7 7)) 
	(POPJ P) 
	NIL 

(LAP RSLSET SUBR) 
	(PUSH P 1) 
	(CAME 1 (SPECIAL CTAG)) 
	(JRST 0 TAG2) 
	(MOVE 1 (SPECIAL RSL)) 
	(JUMPE 1 TAG4) 
	(MOVE 2 (SPECIAL ACS)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG6) 
	(MOVE 2 (SPECIAL PDL)) 
	(HRRZ@ 1 (SPECIAL RSL)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPN 1 TAG4) 
TAG6 	(MOVEI 1 (QUOTE LOSE)) 
	(JRST 0 TAG3) 
TAG4 	(MOVE 1 (SPECIAL ACS)) 
	(CALL 1 (E TOPCOPY)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG7 
TAG3 	(MOVEM 1 (SPECIAL RSL)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP RST SUBR) 
	(PUSH P 1) 
	(JUMPE 1 TAG1) 
	(MOVE 2 (SPECIAL GOLIST)) 
	(CALL 2 (E ASSOCR)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL PRSSL)) 
	(CALL 1 (E RESTORE)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 2 (QUOTE SET)) 
	(MOVE 1 0 P) 
	(CALL 2 (E REMPROP)) 
	(JUMPE 1 TAG3) 
	(CALL 0 (E SAVEACS)) 
	(MOVE 1 (SPECIAL PDL)) 
	(CALL 1 (E TOPCOPY)) 
	(MOVEI 3 (QUOTE LEVEL)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 3 (E PUTPROP)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(MOVEM 1 (SPECIAL MINDEPTH)) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 2 (QUOTE LEVEL)) 
	(MOVE 1 0 P) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG4) 
	(CALL 1 (E CADR)) 
	(CALL 1 (E RESTORE)) 
	(JRST 0 TAG1) 
TAG4 	(MOVEI 1 (QUOTE (NIL-RST))) 
	(CALL 17 (E COMPERR)) 
TAG5 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SAVEACS SUBR) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
TAG1 	(MOVE 1 0 P) 
	(CAMN 1 (SPECIAL NACS)) 
	(JRST 0 TAG3) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E CPUSH)) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SETSLOT SUBR) 
	(PUSH P 2) 
	(CALL 1 (E GETSLOT)) 
	(POP P 2) 
	(HRLM@ 2 1) 
	(POPJ P) 
	NIL 

(LAP SHRINKPDL SUBR) 
	(PUSH P 1) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG2) 
	(MOVEI 5 (QUOTE 0)) 
	(MOVE 4 1) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 5 (E GENCONST)) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE P)) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE SUB)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SIDEEFFECTS SUBR) 
	(MOVEI 2 (QUOTE ACS)) 
	(CALL 2 (E HASPROP)) 
	(JUMPE 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(POPJ P) 
	NIL 

(LAP SLOTCONT SUBR) 
	(CALL 1 (E GETSLOT)) 
	(HLRZ@ 1 1) 
	(POPJ P) 
	NIL 

(LAP SLOTPOP SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 (SPECIAL PDLDEPTH)) 
	(PUSH P 1) 
	(HRRZ@ 1 (SPECIAL PDL)) 
	(MOVEM 1 (SPECIAL PDL)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(LAP SLOTPUSH SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 1 (SPECIAL PDLDEPTH)) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 (SPECIAL PDLDEPTH)) 
	(PUSH P 1) 
	(MOVE 2 (SPECIAL PDL)) 
	(EXCH 1 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL PDL)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SPECBIND SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -3 P) 
	(JUMPN 1 TAG7) 
	(MOVE 1 0 P) 
	(JRST 0 TAG3) 
TAG7 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E SPECVARP)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 (SPECIAL PRGSPFLG)) 
	(JUMPN 1 TAG12) 
	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 0 P) 
	(MOVEM 1 (SPECIAL PRGSPFLG)) 
	(MOVEI 1 (QUOTE (JSP 6 SPECBIND))) 
	(CALL 1 (E OUTSTAT)) 
TAG12 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG14) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG13) 
TAG14 	(MOVEI 1 (QUOTE 0)) 
TAG15 
TAG13 	(PUSH P 1) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E OUTSTAT)) 
TAG2 	(MOVE 1 -1 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG3 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP SPECVARP SUBR) 
	(MOVE 2 (SPECIAL SPECVARS)) 
	(JCALL 2 (E MEMBER)) 
	NIL 

(LAP TESTJUMP SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPN 2 TAG5) 
	(JRST 0 TAG1) 
TAG5 	(HLRZ@ 1 -3 P) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -2 P) 
	(CALL 0 (E FREEAC)) 
	(MOVE 2 1) 
	(MOVE 1 -4 P) 
	(CALL 2 (E PUTINAC)) 
	(MOVE 3 -2 P) 
	(MOVE 2 1) 
	(MOVEM 1 0 P) 
	(MOVE 1 -1 P) 
	(CALL 3 (E OUTCJMP)) 
	(MOVE 1 -1 P) 
	(JUMPE 1 TAG7) 
	(MOVE 1 -2 P) 
	(CALL 1 (E RSLSET)) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
	(JRST 0 TAG6) 
TAG7 	(MOVE 1 0 P) 
	(CALL 1 (E SLOTCONT)) 
	(MOVEI 2 (QUOTE (NIL . QT))) 
	(MOVEM 1 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E RSLSET)) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E SETSLOT)) 
TAG10 
TAG6 	(MOVE 1 -4 P) 
TAG1 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP TRANSOUT SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 3) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 3) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(MOVEI 2 (QUOTE IMMED)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG10) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG1) 
TAG10 	(MOVEI 5 (QUOTE 0)) 
	(MOVEI 4 (QUOTE 0)) 
	(MOVE 3 -2 P) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 5 (E GENCONST)) 
	(MOVEM 1 -2 P) 
TAG1 	(MOVE 1 -2 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG13) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG12) 
TAG13 	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG11) 
TAG12 	(MOVEI 1 (QUOTE P)) 
	(CALL 1 (E NCONS)) 
TAG14 
TAG11 	(MOVE 2 -2 P) 
	(MOVEM 1 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -4 P) 
	(SUB P (C 0 0 5 5)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP USEDTAGP SUBR) 
	(MOVEI 2 (QUOTE USED)) 
	(JCALL 2 (E HASPROP)) 
	NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE PASS2)))) (QUOTE ((EXPR CALLSUBR) (SUBR ~
CALLSUBR) (*SUBR CALLSUBR) (*UNDEF CALLSUBR) (LSUBR CALLLSUBR) (*LSUBR CALLLSUBR) (FEXPR CALLFSUBR) (FSUBR CALLF~
SUBR) (*FSUBR CALLFSUBR) (FUNVAR CALLFUNARGS) (CARCDR P2CARCDR) (P2BOOL DOP2BOOL) (P2ELSE DOP2ELSE) (P2VAL DOP2V~
AL)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P2BOOL)))) (QUOTE ((AND BOOLAND) (NULL B~
OOLNULL) (OR BOOLOR)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P2ELSE)))) (QUOTE ((EQ BOOLEQ) (GO P2GO)~
 (QUOTE P2QUOTE) (PROG2 P2PROG2) (RETURN P2RETURN) (SETQ P2SETQ)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE P2VAL)))) (QUOTE ((ARG P2ARG) (*EVAL P2*~
EVAL) (COND P2COND) (PROG P2PROG) (PROGN P2PROGN) (RETURN P2RETURN) (RPLACA P2RPLAC) (RPLACD P2RPLAC) (SETARG P2~
SETARG) (STORE P2STORE)))) 

(SETQ CARCDRDEPTH 4) 

(PROG (BASE COUNT LIMIT MIDDLE NAME) (SETQ BASE 2) (SETQ LIMIT (SUB1 (LSH 1 (ADD1 CARCDRDEPTH)))) (SETQ COUNT (L~
SH 1 1)) LOOP (COND ((GREATERP COUNT LIMIT) (RETURN NIL))) (SETQ MIDDLE (SUBST (QUOTE A) 0 (SUBST (QUOTE D) 1 (C~
DR (EXPLODE COUNT))))) (SETQ NAME (READLIST (APPEND (QUOTE (C)) MIDDLE (QUOTE (R))))) (PUTPROP NAME (CONS (CAR M~
IDDLE) (COND ((CDR MIDDLE) (READLIST (APPEND (QUOTE (C)) (CDR MIDDLE) (QUOTE (R))))))) (QUOTE CARCDR)) (SETQ COU~
NT (ADD1 COUNT)) (GO LOOP)) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE ACS)))) (QUOTE ((*APPEND 37) (ATOM 1) (C~
ONS 3) (GENSYM 7) (GET 1) (LAST 3) (LENGTH 7) (MEMBER 37) (NCONS 3) (XCONS 3)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE COMMU)))) (QUOTE ((CONS XCONS) (EQUAL EQ~
UAL) (*GREAT *LESS) (*LESS *GREAT) (*PLUS *PLUS) (*TIMES *TIMES)))) 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PUTPROP (CAR PAIR) (CADR PAIR) (QUOTE IMMED)))) (QUOTE ((CAME CAIE) (CAMN CAIN~
) (HLLZS@ HLLZS) (HLRZ@ HLRZ) (HRLM@ HRLM) (HRRM@ HRRM) (HRRZ@ HRRZ) (HRRZS@ HRRZS) (MOVE MOVEI)))) 

(SETQ NACS 5) 

(SETQ VALUEAC 1) 

(SETQ FARGAC 1) 

(SETQ GOTABAC 1) 

(SETQ ARRAYAC 1) 

(SETQ INUM0 (MAKNUM 0 (QUOTE FIXNUM))) 

(ENDBLOCK PASS2) 

(BEGINBLOCK DEBUG) 

(LAP CMPBREAK SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E INC)) 
	(MOVEI 2 (QUOTE T)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 2 (E OUTC)) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(JRST 0 TAG5) 
TAG6 	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E LINEF)) 
TAG7 
TAG5 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E PRINL)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
TAG1 	(MOVEI 1 (QUOTE ((EVALREAD)))) 
	(CALL 17 (E ERRSET)) 
	(MOVEI 2 (QUOTE (PROCEED))) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG12) 
	(MOVEI 1 (QUOTE DONE)) 
	(JRST 0 TAG2) 
TAG12 	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP COMPERR FSUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (*COMPILER ERROR*))) 
	(JCALL 2 (E CMPBREAK)) 
	NIL 

(LAP EVALREAD SUBR) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(CALL 0 (E READ)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL *SP)) 
	(CALL 1 (E PRINC)) 
	(MOVE 1 0 P) 
	(CALL 1 (E *EVAL)) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 1 (E PRINC)) 
	NIL 

(LAP LAPNOTES SUBR) 
	(MOVE 2 (SPECIAL TRACELIST)) 
	(MOVEI 1 (QUOTE EVAL)) 
	(CALL 2 (E MAPCAR)) 
	(JCALL 1 (E COPY)) 
	NIL 

(LAP USERERR FSUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE (*USER ERROR*))) 
	(JCALL 2 (E CMPBREAK)) 
	NIL 

(SETQ TRACELIST NIL) 

(ENDBLOCK DEBUG) 

(BEGINBLOCK IO) 

(LAP ATMARGIN SUBR) 
	(CALL 0 (E CHRCT)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E LINELENGTH)) 
	(CAME 1 0 P) 
	(TDZA 1 1) 
	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP CARRETN SUBR) 
	(CALL 0 (E ATMARGIN)) 
	(JUMPN 1 TAG2) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(POPJ P) 
	NIL 

(LAP CURCOL SUBR) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E LINELENGTH)) 
	(CALL 1 (E ADD1)) 
	(PUSH P 1) 
	(CALL 0 (E CHRCT)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E *DIF)) 
	NIL 

(LAP FORMF SUBR) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVE 1 (SPECIAL *FF)) 
	(CALL 1 (E PRINC)) 
	(PUSH P 1) 
	(MOVE 1 (SPECIAL PAGEHEIGHT)) 
	(MOVEM 1 (SPECIAL LINCNT)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E PROGN)) 
TAG1 	(POPJ P) 
	NIL 

(LAP LINEF SUBR) 
	(PUSH P 1) 
TAG1 	(MOVE 1 0 P) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG3) 
	(CALL 0 (E TERPRI)) 
	(MOVE 1 0 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP PRINL SUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE PRINS)) 
	(JCALL 2 (E MAPC)) 
	NIL 

(LAP PRINS SUBR) 
	(PUSH P 1) 
	(CALL 1 (E FLATSIZE)) 
	(CALL 1 (E ADD1)) 
	(PUSH P 1) 
	(CALL 0 (E CHRCT)) 
	(POP P 2) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG2) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
TAG2 	(POP P 1) 
	(JCALL 1 (E PRINTEXPR)) 
	NIL 

(LAP PRINTEXPR SUBR) 
	(CALL 1 (E PRIN1)) 
	(MOVE 1 (SPECIAL *SP)) 
	(JCALL 1 (E PRINC)) 
	NIL 

(LAP PRINTN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
TAG1 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG6) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG2) 
TAG6 	(MOVE 1 -2 P) 
	(CALL 1 (E PRINC)) 
	(MOVE 1 0 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP PRINTSTAT SUBR) 
	(PUSH P 1) 
	(JUMPN 1 TAG2) 
	(CALL 0 (E CARRETN)) 
	(MOVEI 1 (QUOTE 10)) 
	(CALL 1 (E TABTO)) 
	(JRST 0 TAG1) 
TAG2 	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG3) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E TABTO)) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 1 0 P) 
	(CAIE 1 (QUOTE LAP)) 
	(JRST 0 TAG4) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E TABTO)) 
	(JRST 0 TAG1) 
TAG4 	(MOVEI 1 (QUOTE 10)) 
	(CALL 1 (E TABTO)) 
TAG5 
TAG1 	(POP P 1) 
	(JCALL 1 (E PRINTEXPR)) 
	NIL 

(LAP TABTO SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(CALL 0 (E CURCOL)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG3) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E LINEF)) 
TAG3 	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(PUSH P (SPECIAL *TB)) 
	(CALL 1 (E SUB1)) 
	(MOVEI 2 (QUOTE -3)) 
	(CALL 2 (E LSH)) 
	(PUSH P 1) 
	(CALL 0 (E CURCOL)) 
	(CALL 1 (E SUB1)) 
	(MOVEI 2 (QUOTE -3)) 
	(CALL 2 (E LSH)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E PRINTN)) 
	(PUSH P 1) 
	(PUSH P (SPECIAL *SP)) 
	(CALL 0 (E CURCOL)) 
	(MOVE 2 1) 
	(EXCH 1 -4 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E PRINTN)) 
	(PUSH P 1) 
	(MOVNI 6 3) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(MAPCAR (FUNCTION (LAMBDA (PAIR) (PROG2 (SET (CAR PAIR) (INTERN (ASCII (CADR PAIR)))) (CAR PAIR)))) (QUOTE ((*SP~
 40) (*TB 11) (*CR 15) (*LF 12) (*VT 13) (*FF 14) (*CO 54) (*PT 56) (*LP 50) (*RP 51) (*SL 57) (*AM 33) (*AT 100~
) (*RO 177) (*COLON 72)))) 

(SETQ LINCNT 0) 

(SETQ PAGEHEIGHT 74) 

(SETQ PAGEWIDTH 120) 

(ENDBLOCK IO) 

(BEGINBLOCK GENERAL) 

(LAP ADDTOLIST SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 2 (E MEMBER)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP ASSOCR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
TAG1 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(CALL 1 (E CDAR)) 
	(CAME 1 -1 P) 
	(JRST 0 TAG6) 
	(HLRZ@ 1 0 P) 
	(JRST 0 TAG2) 
TAG6 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CONSTANTP SUBR) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPN 1 TAG1) 
	(MOVEI 2 (QUOTE (T NIL))) 
	(MOVE 1 0 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPN 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP COPY SUBR) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE 0)) 
	(JCALL 3 (E SUBST)) 
	NIL 

(LAP DEINITSYM SUBR) 
	(MOVEI 2 (QUOTE SYMNO)) 
	(JCALL 2 (E DELETEPROP)) 
	NIL 

(LAP FSUBRP SUBR) 
	(MOVEI 2 (QUOTE (FEXPR *FSUBR FSUBR))) 
	(JCALL 2 (E GETL)) 
	NIL 

(LAP GETGET SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG3) 
	(MOVE 2 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E SEEKPROP)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG7) 
	(JRST 0 TAG2) 
TAG7 	(HRRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP LSUBRP SUBR) 
	(MOVEI 2 (QUOTE (LSUBR *LSUBR))) 
	(JCALL 2 (E GETL)) 
	NIL 

(LAP MAKESPECIAL SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(MOVEI 2 (QUOTE LOCAL)) 
	(CALL 2 (E HASPROP)) 
	(JUMPE 1 TAG3) 
	(MOVEI 2 (QUOTE (LOCAL AND SPECIAL))) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E PRINTMSG)) 
TAG3 	(PUSH P 1) 
	(MOVEI 3 (QUOTE T)) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(MOVE 1 -2 P) 
	(CALL 3 (E SETPROP)) 
	(PUSH P 1) 
	(PUSH P -3 P) 
	(MOVNI 6 3) 
	(JCALL 16 (E PROGN)) 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP MAKESYM SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL *NOPOINT)) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVEI 1 (QUOTE T)) 
	(MOVEM 1 (SPECIAL *NOPOINT)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E EXPLODE)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E EXPLODE)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *APPEND)) 
	(CALL 1 (E MAKNAM)) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP MAKEUNSPECIAL SUBR) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE SPECIAL)) 
	(CALL 2 (E REMPROP)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
TAG2 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP NEXTSYM FSUBR) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE SYMNO)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E GET)) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E ADD1)) 
	(MOVEI 3 (QUOTE SYMNO)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 3 (E PUTPROP)) 
	(MOVE 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 2 (E MAKESYM)) 
	NIL 

(LAP NTHCDR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E MINUSP)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE (NEGNUM-NTHCDR))) 
	(CALL 17 (E COMPERR)) 
TAG6 
TAG1 	(MOVE 1 -1 P) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG10) 
	(MOVE 1 0 P) 
	(JRST 0 TAG2) 
TAG10 	(MOVE 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG12) 
	(MOVEI 1 (QUOTE (ATOM-NTHCDR))) 
	(CALL 17 (E COMPERR)) 
TAG12 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP PROGN LSUBR) 
	(JSP 3 *LCALL) 
	(ADD 1 -1 P) 
	(HRRZ 1 -577777 1) 
	(POPJ P) 
	NIL 

(LAP STARTSYM FSUBR) 
	(PUSH P 1) 
TAG1 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(MOVEI 3 (QUOTE 1)) 
	(MOVEI 2 (QUOTE SYMNO)) 
	(HLRZ@ 1 1) 
	(CALL 3 (E INITPROP)) 
	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP STOPSYM FSUBR) 
	(PUSH P 1) 
TAG1 	(MOVE 1 0 P) 
	(JUMPE 1 TAG3) 
	(MOVEI 2 (QUOTE SYMNO)) 
	(HLRZ@ 1 1) 
	(CALL 2 (E DELETEPROP)) 
	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP SUBRP SUBR) 
	(MOVEI 2 (QUOTE (EXPR SUBR ARRAY *SUBR *UNDEF))) 
	(JCALL 2 (E GETL)) 
	NIL 

(LAP TOPCOPY SUBR) 
	(MOVEI 2 (QUOTE NIL)) 
	(JCALL 2 (E *APPEND)) 
	NIL 

(ENDBLOCK GENERAL) 

(ENDBLOCK COMPILER)